diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-12-01 20:18:18 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-12-01 20:18:18 +0000 |
| commit | f3acf6f52a3d85421490a8fe7843a14e22cbe329 (patch) | |
| tree | b44d908c0ad52b4c794638b0501d2ec576f18f7e | |
| parent | 80e0c45c3896e5552a387a2b533b5235b42094ce (diff) | |
| download | emacs-f3acf6f52a3d85421490a8fe7843a14e22cbe329.tar.gz emacs-f3acf6f52a3d85421490a8fe7843a14e22cbe329.tar.bz2 emacs-f3acf6f52a3d85421490a8fe7843a14e22cbe329.zip | |
(isearch-edit-string): Consider the case when
iserch-string is empty and so are the search rings.
| -rw-r--r-- | lisp/isearch.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/isearch.el b/lisp/isearch.el index cd035b08b3e..bbcc08bf00b 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el @@ -552,7 +552,7 @@ is treated as a regexp. See \\[isearch-forward] for more info." (or (and transient-mark-mode mark-active) (progn (push-mark isearch-opoint t) - (or executing-macro (> (minibuffer-depth) 0) + (or executing-kbd-macro (> (minibuffer-depth) 0) (message "Mark saved where search started")))))) (setq isearch-mode nil) @@ -726,8 +726,10 @@ If first char entered is \\[isearch-yank-word], then do word search instead." ;; Empty isearch-string means use default. (if (= 0 (length isearch-string)) - (setq isearch-string (car (if isearch-regexp regexp-search-ring - search-ring))) + (setq isearch-string (or (car (if isearch-regexp + regexp-search-ring + search-ring)) + "")) ;; This used to set the last search string, ;; but I think it is not right to do that here. ;; Only the string actually used should be saved. |