146 |
:type 'boolean |
:type 'boolean |
147 |
:group 'isearch) |
:group 'isearch) |
148 |
|
|
149 |
(defcustom isearch-resume-enabled t |
(defcustom isearch-resume-in-command-history nil |
150 |
"*If non-nil, `isearch-resume' commands are added to the command history." |
"*If non-nil, `isearch-resume' commands are added to the command history. |
151 |
|
This allows you to resume earlier isearch sessions through the |
152 |
|
command history." |
153 |
:type 'boolean |
:type 'boolean |
154 |
:group 'isearch) |
:group 'isearch) |
155 |
|
|
653 |
(setq disable-point-adjustment t)) |
(setq disable-point-adjustment t)) |
654 |
|
|
655 |
(defun isearch-done (&optional nopush edit) |
(defun isearch-done (&optional nopush edit) |
656 |
(if isearch-resume-enabled |
(if isearch-resume-in-command-history |
657 |
(let ((command `(isearch-resume ,isearch-string ,isearch-regexp |
(let ((command `(isearch-resume ,isearch-string ,isearch-regexp |
658 |
,isearch-word ,isearch-forward |
,isearch-word ,isearch-forward |
659 |
,isearch-message |
,isearch-message |