branch: master commit 59cbc41e2bfff171c744123335bd1d3e2a2865e7 Author: Michael Heerdegen <michael_heerde...@web.de> Commit: Michael Heerdegen <michael_heerde...@web.de>
Use local binding of `post-command-hook' to reset wrap flag The current search is a global thing, so we must use the global value of `post-command-hook' to reset the `el-search--wrap-flag'. --- packages/el-search/el-search.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el index be58eae..95441d6 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.4.0.7 +;; Version: 1.4.0.8 ;; Package-Requires: ((emacs "25") (stream "2.2.4")) @@ -1905,12 +1905,12 @@ local binding of `window-scroll-functions'." (defun el-search--reset-wrap-flag () (unless (or (eq this-command 'el-search-query-replace) (eq this-command 'el-search-pattern)) - (remove-hook 'post-command-hook 'el-search--reset-wrap-flag t) + (remove-hook 'post-command-hook 'el-search--reset-wrap-flag) (setq el-search--wrap-flag nil))) (defun el-search--set-wrap-flag (value) (when value - (add-hook 'post-command-hook #'el-search--reset-wrap-flag t t)) + (add-hook 'post-command-hook #'el-search--reset-wrap-flag t)) (setq el-search--wrap-flag value))