[elpa] externals/el-search 60ad12e 268/332: [el-search] Small fix in el-search--reset-wrap-flag

[Stefan Monnier]

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

    [el-search] Small fix in el-search--reset-wrap-flag
    
    We must reset 'el-search--wrap-flag' when the user does something
    different than search wrapping with the next command - else a later
    command could wrap the search even when not at the first or last
    match.
    Bump version to 1.7.14
    
    * packages/el-search/el-search.el (el-search--reset-wrap-flag): Reset
    'el-search--wrap-flag' also when user hasn't wrapped search.
---
 el-search.el | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/el-search.el b/el-search.el
index 98aed80..4f4b0eb 100644
--- a/el-search.el
+++ b/el-search.el
@@ -7,7 +7,7 @@
 ;; Created: 29 Jul 2015
 ;; Keywords: lisp
 ;; Compatibility: GNU Emacs 25
-;; Version: 1.7.13
+;; Version: 1.7.14
 ;; Package-Requires: ((emacs "25") (stream "2.2.4") (cl-print "1.0"))
 
 
@@ -2352,8 +2352,10 @@ local binding of `window-scroll-functions'."
   (memq #'el-search-hl-post-command-fun post-command-hook))
 
 (defun el-search--reset-wrap-flag ()
-  (unless (or (eq this-command 'el-search-query-replace)
-              (eq this-command 'el-search-pattern))
+  (unless (eq real-this-command
+              (if (eq el-search--wrap-flag 'forward)
+                  'el-search-pattern
+                'el-search-pattern-backward))
     (remove-hook 'post-command-hook 'el-search--reset-wrap-flag)
     (setq el-search--wrap-flag nil)))