mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-07 06:50:23 -08:00
Code Issues Projects Releases Wiki Activity

(lisp-complete-symbol): Mostly undo the change by Kevin Rodgers.

Browse source 
Instead, just hide the completions buffer if we don't need to show it.
This commit is contained in:
Stefan Monnier 2005-12-22 01:48:20 +00:00
parent f29cf2b134
commit c1b5a260d6
2 changed files with 15 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lisp/emacs-lisp/lisp.el
View file

@ -569,11 +569,13 @@ considered."
((null completion)
(message "Can't find completion for \"%s\"" pattern)
(ding))
((not (string= pattern completion))
(delete-region beg end)
(insert completion)
;; Don't leave around a completions buffer that's outofdate.
(let ((win (get-buffer-window "*Completions*" 0)))
(if win (with-selected-window win (bury-buffer)))))
(t
(unless (string= completion pattern)
(delete-region beg end)
(insert completion)
(setq pattern completion))
(message "Making completion list...")
(let ((list (all-completions pattern obarray predicate)))
(setq list (sort list 'string<))
@ -589,8 +591,9 @@ considered."
(if (> (length list) 1)
(with-output-to-temp-buffer "*Completions*"
(display-completion-list list pattern))
(if (get-buffer "*Completions*")
(delete-windows-on "*Completions*"))))
;; Don't leave around a completions buffer that's outofdate.
(let ((win (get-buffer-window "*Completions*" 0)))
(if win (with-selected-window win (bury-buffer))))))
(message "Making completion list...%s" "done")))))))
;; arch-tag: aa7fa8a4-2e6f-4e9b-9cd9-fef06340e67e