[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp ChangeLog simple.el
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] emacs/lisp ChangeLog simple.el |
Date: |
Thu, 22 Oct 2009 15:27:21 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Stefan Monnier <monnier> 09/10/22 15:27:20
Modified files:
lisp : ChangeLog simple.el
Log message:
(switch-to-completions): Look for *Completions* in other frames as well.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16477&r2=1.16478
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/simple.el?cvsroot=emacs&r1=1.1017&r2=1.1018
Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16477
retrieving revision 1.16478
diff -u -b -r1.16477 -r1.16478
--- ChangeLog 22 Oct 2009 15:17:48 -0000 1.16477
+++ ChangeLog 22 Oct 2009 15:27:17 -0000 1.16478
@@ -1,5 +1,8 @@
2009-10-22 Stefan Monnier <address@hidden>
+ * simple.el (switch-to-completions): Look for *Completions* in other
+ frames as well.
+
* pcomplete.el: Allow the use of completion-tables.
(pcomplete-std-complete): New command.
(pcomplete-dirs-or-entries): Use a single call to pcomplete-entries.
Index: simple.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/simple.el,v
retrieving revision 1.1017
retrieving revision 1.1018
diff -u -b -r1.1017 -r1.1018
--- simple.el 15 Oct 2009 01:50:23 -0000 1.1017
+++ simple.el 22 Oct 2009 15:27:20 -0000 1.1018
@@ -6024,10 +6024,10 @@
(defun switch-to-completions ()
"Select the completion list window."
(interactive)
+ (let ((window (or (get-buffer-window "*Completions*" 0)
;; Make sure we have a completions window.
- (or (get-buffer-window "*Completions*")
- (minibuffer-completion-help))
- (let ((window (get-buffer-window "*Completions*")))
+ (progn (minibuffer-completion-help)
+ (get-buffer-window "*Completions*" 0)))))
(when window
(select-window window)
(goto-char (point-min))
- [Emacs-diffs] emacs/lisp ChangeLog simple.el,
Stefan Monnier <=