(isearch-resume-enabled): New variable.

(isearch-done): Use that variable.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1f6354110a2552dbbd6f06bc6c37210ca7d1326a..8df0e30abd0378c9697a55577a331e2965831aeb 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-12-02  Kim F. Storm  <storm@cua.dk>
+
+       * isearch.el (isearch-resume-enabled): New variable.
+       (isearch-done): Use that variable.
+
 2001-12-01  Eli Zaretskii  <eliz@is.elta.co.il>
 
        * progmodes/idlwave.el, progmodes/idlw-rinfo.el:

diff --git a/lisp/isearch.el b/lisp/isearch.el
index 4777b49b629db210d43bbf7e047087803537a215..e85f7bca9541cb79eb0fe5c67f7bca921b1710d1 100644 (file)
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -186,6 +186,11 @@ Ordinarily the text becomes invisible again at the end of the search."
   :type 'boolean 
   :group 'isearch)
 
+(defcustom isearch-resume-enabled t
+  "*If non-nil, `isearch-resume' commands are added to the command history."
+  :type 'boolean
+  :group 'isearch)
+
 (defvar isearch-mode-hook nil
   "Function(s) to call after starting up an incremental search.")
 
@@ -647,12 +652,13 @@ is treated as a regexp.  See \\[isearch-forward] for more info."
   (setq disable-point-adjustment t))
 
 (defun isearch-done (&optional nopush edit)
-  (let ((command `(isearch-resume ,isearch-string ,isearch-regexp
-                                 ,isearch-word ,isearch-forward
-                                 ,isearch-message
-                                 ',isearch-case-fold-search)))
-    (unless (equal (car command-history) command)
-      (setq command-history (cons command command-history))))
+  (if isearch-resume-enabled
+      (let ((command `(isearch-resume ,isearch-string ,isearch-regexp
+                                     ,isearch-word ,isearch-forward
+                                     ,isearch-message
+                                     ',isearch-case-fold-search)))
+       (unless (equal (car command-history) command)
+         (setq command-history (cons command command-history)))))
 
   (remove-hook 'mouse-leave-buffer-hook 'isearch-done)
   (remove-hook 'kbd-macro-termination-hook 'isearch-done)