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

diff --git a/lisp/isearch.el b/lisp/isearch.el
index 2efa4c7e8ef6b6b8b7038c23f887f16613c586f7..c91ccfad27dc05e85911d6d5ad356e97adf97232 100644 (file)
--- 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)