[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp ChangeLog minibuffer.el
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] emacs/lisp ChangeLog minibuffer.el |
Date: |
Thu, 12 Nov 2009 23:10:13 +0000 |
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")))