(minibuffer-completion-help): Use minibuffer-hide-completions.
This commit is contained in:
parent
054049883d
commit
4d93a9e061
2 changed files with 6 additions and 6 deletions
|
|
@ -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.
|
||||
|
|
|
|||
|
|
@ -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")))
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue