Don't override search-default-mode set by user in info/help

* lisp/info.el (Info-mode):
* lisp/help-mode.el (help-mode): Don't override isearch mode set
by the user.

diff --git a/lisp/help-mode.el b/lisp/help-mode.el
index 38a2f93a3c328e4977df96b91d00c8c116ea4875..a0a587cd8105ed64ef8ff5d8d695a1f2d7c47679 100644 (file)
--- a/lisp/help-mode.el
+++ b/lisp/help-mode.el
@@ -416,7 +416,8 @@ Commands:
   (setq-local help-mode--current-data nil)
   (setq-local bookmark-make-record-function
               #'help-bookmark-make-record)
-  (isearch-fold-quotes-mode))
+  (unless search-default-mode
+    (isearch-fold-quotes-mode)))
 
 ;;;###autoload
 (defun help-mode-setup ()

diff --git a/lisp/info.el b/lisp/info.el
index 0bdb2f2e7a33901d0b09d1a9f23c1eb03abde1a3..514cf7b3f47aec2d5b31f55f68cb3651ecd276a9 100644 (file)
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -4491,7 +4491,8 @@ Advanced commands:
   (setq-local font-lock-defaults '(Info-mode-font-lock-keywords t t))
   (Info-set-mode-line)
   (setq-local bookmark-make-record-function #'Info-bookmark-make-record)
-  (isearch-fold-quotes-mode))
+  (unless search-default-mode
+    (isearch-fold-quotes-mode)))
 
 ;; When an Info buffer is killed, make sure the associated tags buffer
 ;; is killed too.