procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(isearch-complete1): If no completion,

Browse source 
don't clobber isearch-string, and return nil.
This commit is contained in:
Richard M. Stallman 1996-11-12 04:26:06 +00:00
parent b7734773b9
commit 36bcac3fe1
1 changed files with 8 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lisp/isearch.el
View file

@ -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))))