Commit 4d93a9e0 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

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

parent 05404988
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.
......
......@@ -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")))
......
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