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

[Stefan Monnier]

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))