[elpa] externals/el-search 13fc32d 323/332: [el-search] Fix a highlighting corner case

[Stefan Monnier]

branch: externals/el-search
commit 13fc32dceb8ef65856779e5afdb7d28aba3ed512
Author: Michael Heerdegen <michael_heerdegen@web.de>
Commit: Michael Heerdegen <michael_heerdegen@web.de>

    [el-search] Fix a highlighting corner case
    
    * packages/el-search/el-search.el (el-search-pattern-backward):
    Highlight other matches also when last command was 'el-search-pattern'
    but search had failed.
---
 el-search.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/el-search.el b/el-search.el
index b70c79b..1920d2a 100644
--- a/el-search.el
+++ b/el-search.el
@@ -3387,7 +3387,7 @@ See the command `el-search-pattern' for more information."
         (setf (el-search-object-last-match el-search--current-search)
               (copy-marker (point)))
         (el-search-hl-sexp)
-        (unless (eq last-command 'el-search-pattern)
+        (unless (and (eq last-command 'el-search-pattern) el-search--success)
           (el-search-hl-other-matches (el-search--current-matcher)))
         (setq el-search--success t))
     (el-search--unless-no-buffer-match