[Emacs-diffs] emacs-25 2e78353: * lisp/isearch.el (isearch-define-mode-toggle): Fix toggling logic

[Artur Malabarba]

branch: emacs-25
commit 2e78353fabe11c768627c50e48375de5693ce7ee
Author: Artur Malabarba <address@hidden>
Commit: Artur Malabarba <address@hidden>

    * lisp/isearch.el (isearch-define-mode-toggle): Fix toggling logic
---
 lisp/isearch.el |    4 +++-
 1 files changed, 3 insertions(+), 1 deletions(-)

diff --git a/lisp/isearch.el b/lisp/isearch.el
index 2efa4c7..c91ccfa 100644
--- 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)