[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master ff13541: [el-search] Small fix in el-search--reset-wrap-fl
From: |
Michael Heerdegen |
Subject: |
[elpa] master ff13541: [el-search] Small fix in el-search--reset-wrap-flag |
Date: |
Sun, 4 Nov 2018 11:31:22 -0500 (EST) |
branch: master
commit ff13541b0af48eb8f514bd05034ef6812035c309
Author: Michael Heerdegen <address@hidden>
Commit: Michael Heerdegen <address@hidden>
[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.
---
packages/el-search/el-search.el | 8 +++++---
1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el
index 98aed80..4f4b0eb 100644
--- a/packages/el-search/el-search.el
+++ b/packages/el-search/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)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] master ff13541: [el-search] Small fix in el-search--reset-wrap-flag,
Michael Heerdegen <=