diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2009-11-12 23:10:01 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2009-11-12 23:10:01 +0000 |
| commit | 4d93a9e0613fdc150efabab765655d8773fe9234 (patch) | |
| tree | 97a4c30ed43978ec73a5b797c096a2d00e0705a2 /lisp/minibuffer.el | |
| parent | 054049883d9f0ea3e184ffd4a661a8f96eea9863 (diff) | |
| download | emacs-4d93a9e0613fdc150efabab765655d8773fe9234.tar.gz emacs-4d93a9e0613fdc150efabab765655d8773fe9234.tar.bz2 emacs-4d93a9e0613fdc150efabab765655d8773fe9234.zip | |
(minibuffer-completion-help): Use minibuffer-hide-completions.
Diffstat (limited to 'lisp/minibuffer.el')
| -rw-r--r-- | lisp/minibuffer.el | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el index 244acbc4c36..40d36500525 100644 --- a/lisp/minibuffer.el +++ b/lisp/minibuffer.el @@ -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"))) |