(minibuffer-completion-help): Use minibuffer-hide-completions.

This commit is contained in:
Stefan Monnier 2009-11-12 23:10:01 +00:00
parent 054049883d
commit 4d93a9e061
2 changed files with 6 additions and 6 deletions

View file

@ -1,3 +1,8 @@
2009-11-12 Stefan Monnier <monnier@iro.umontreal.ca>
* minibuffer.el (minibuffer-completion-help):
Use minibuffer-hide-completions.
2009-11-12 Per Starbäck <per@starback.se> (tiny change)
* dired.el (dired-save-positions, dired-restore-positions): New funs.

View file

@ -989,12 +989,7 @@ variables.")
;; If there are no completions, or if the current input is already the
;; only possible completion, then hide (previous&stale) completions.
(let ((window (and (get-buffer "*Completions*")
(get-buffer-window "*Completions*" 0))))
(when (and (window-live-p window) (window-dedicated-p window))
(condition-case ()
(delete-window window)
(error (iconify-frame (window-frame window))))))
(minibuffer-hide-completions)
(ding)
(minibuffer-message
(if completions "Sole completion" "No completions")))