# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1256225237 0
# Node ID eb03599b0d98657aebbebc9f14bfab98b6f42f7a
# Parent  e044a3c6a7e63a1dc2472d91d97ef439041bb4ef
(switch-to-completions): Look for *Completions* in other frames as well.

diff -r e044a3c6a7e6 -r eb03599b0d98 lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Oct 22 15:17:48 2009 +0000
+++ b/lisp/ChangeLog	Thu Oct 22 15:27:17 2009 +0000
@@ -1,5 +1,8 @@
 2009-10-22  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+	* 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.
diff -r e044a3c6a7e6 -r eb03599b0d98 lisp/simple.el
--- a/lisp/simple.el	Thu Oct 22 15:17:48 2009 +0000
+++ b/lisp/simple.el	Thu Oct 22 15:27:17 2009 +0000
@@ -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))