From 4d93a9e0613fdc150efabab765655d8773fe9234 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 12 Nov 2009 23:10:01 +0000 Subject: [PATCH] (minibuffer-completion-help): Use minibuffer-hide-completions. --- lisp/ChangeLog | 5 +++++ lisp/minibuffer.el | 7 +------ 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 07e32b29227..abb97e7b581 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2009-11-12 Stefan Monnier + + * minibuffer.el (minibuffer-completion-help): + Use minibuffer-hide-completions. + 2009-11-12 Per Starbäck (tiny change) * dired.el (dired-save-positions, dired-restore-positions): New funs. 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"))) -- 2.39.5