mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-26 10:49:33 +00:00
Code Issues Releases 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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -1,3 +1,9 @@
2005-12-21 Stefan Monnier <monnier@iro.umontreal.ca>
* emacs-lisp/lisp.el (lisp-complete-symbol): Mostly undo the change
by Kevin Rodgers. Instead, just hide the completions buffer if we
don't need to show it.
2005-12-21 Luc Teirlinck <teirllm@auburn.edu>
* wid-edit.el (file, directory): Doc fixes for the `define-widget's.

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