Commit c1b5a260 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

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

Instead, just hide the completions buffer if we don't need to show it.
parent f29cf2b1
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.
......
......@@ -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
......
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