* lisp/isearch.el (isearch-define-mode-toggle): Fix toggling logic

2016-03-03 19:03:16 -03:00
parent 66d2717888
commit 2e78353fab
1 changed files with 3 additions and 1 deletions
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -1528,7 +1528,9 @@ The command then executes BODY and updates the isearch prompt."
                  (if docstring (concat "\n" docstring) ""))
         (interactive)
         ,@(when function
-             `((setq isearch-regexp-function #',function)
+             `((setq isearch-regexp-function
+                     (unless (eq isearch-regexp-function #',function)
+                       #',function))
               (setq isearch-regexp nil)))
         ,@body
         (setq isearch-success t isearch-adjusted t)