[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] scratch/mheerdegen-preview e557155 31/35: WIP: Small fix in 'el-s

From: Michael Heerdegen
Subject: [elpa] scratch/mheerdegen-preview e557155 31/35: WIP: Small fix in 'el-search--reset-wrap-flag'
Date: Mon, 29 Oct 2018 22:24:09 -0400 (EDT)

branch: scratch/mheerdegen-preview
commit e5571552b1b454584cedd0385f083d383e31e008
Author: Michael Heerdegen <address@hidden>
Commit: Michael Heerdegen <address@hidden>

    WIP: Small fix in 'el-search--reset-wrap-flag'
 packages/el-search/el-search.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el
index c06f953..8739425 100644
--- a/packages/el-search/el-search.el
+++ b/packages/el-search/el-search.el
@@ -2743,8 +2743,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)))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]