Commit 6848c9f1 authored by Kim F. Storm's avatar Kim F. Storm
Browse files

(isearch-resume-enabled): New variable.

(isearch-done): Use that variable.
parent 08cf00d8
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:
......
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment