Commit 36bcac3f authored by Richard M. Stallman's avatar Richard M. Stallman

(isearch-complete1): If no completion,

don't clobber isearch-string, and return nil.
parent b7734773
......@@ -1216,12 +1216,14 @@ If you want to search for just a space, type C-q SPC."
((or completion ; not nil, must be a string
(= 0 (length isearch-string))) ; shouldn't have to say this
(if (equal completion isearch-string) ;; no extension?
(if completion-auto-help
(with-output-to-temp-buffer "*Isearch completions*"
(display-completion-list
(all-completions isearch-string alist))))
(setq isearch-string completion))
t)
(progn
(if completion-auto-help
(with-output-to-temp-buffer "*Isearch completions*"
(display-completion-list
(all-completions isearch-string alist))))
t)
(and completion
(setq isearch-string completion))))
(t
(message "No completion") ; waits a second if in minibuffer
nil))))
......
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