[Emacs-diffs] emacs/lisp ChangeLog minibuffer.el

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        09/11/12 23:10:11

Modified files:
        lisp           : ChangeLog minibuffer.el 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16611&r2=1.16612
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/minibuffer.el?cvsroot=emacs&r1=1.95&r2=1.96

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16611
retrieving revision 1.16612
diff -u -b -r1.16611 -r1.16612
--- ChangeLog   12 Nov 2009 22:37:58 -0000      1.16611
+++ ChangeLog   12 Nov 2009 23:10:01 -0000      1.16612
@@ -1,3 +1,8 @@
+2009-11-12  Stefan Monnier  <address@hidden>
+
+       * minibuffer.el (minibuffer-completion-help):
+       Use minibuffer-hide-completions.
+
 2009-11-12  Per Starbäck  <address@hidden>  (tiny change)
 
        * dired.el (dired-save-positions, dired-restore-positions): New funs.

Index: minibuffer.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/minibuffer.el,v
retrieving revision 1.95
retrieving revision 1.96
diff -u -b -r1.95 -r1.96
--- minibuffer.el       11 Nov 2009 06:36:44 -0000      1.95
+++ minibuffer.el       12 Nov 2009 23:10:06 -0000      1.96
@@ -989,12 +989,7 @@
 
       ;; 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")))