branch: scratch/mheerdegen-preview
commit 8c8e364d9b3c3ec398e460a90de5963b9384418a
Author: Michael Heerdegen <[email protected]>
Commit: Michael Heerdegen <[email protected]>
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 3c2ab56..8d09fa9 100644
--- a/packages/el-search/el-search.el
+++ b/packages/el-search/el-search.el
@@ -2733,8 +2733,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)))
