# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1175043068 0
# Node ID 3f12f4633f63b5133055155a7876b0fdf7ee63d3
# Parent  a05e2047bdb8b2b450da050c4af58f7f432bc824
(comint-proc-query, comint-dynamic-list-completions):
Fix calls to get-buffer-window to find windows in other frames.
Reported by David Hansen <david.hansen@gmx.net>.

diff -r a05e2047bdb8 -r 3f12f4633f63 lisp/comint.el
--- a/lisp/comint.el	Tue Mar 27 22:21:02 2007 +0000
+++ b/lisp/comint.el	Wed Mar 28 00:51:08 2007 +0000
@@ -2593,7 +2593,7 @@
 	 (proc-mark (process-mark proc)))
     (display-buffer proc-buf)
     (set-buffer proc-buf) ; but it's not the selected *window*
-    (let ((proc-win (get-buffer-window proc-buf))
+    (let ((proc-win (get-buffer-window proc-buf 0))
 	  (proc-pt (marker-position proc-mark)))
       (comint-send-string proc str) ; send the query
       (accept-process-output proc)  ; wait for some output
@@ -2959,7 +2959,7 @@
 (defun comint-dynamic-list-completions (completions)
   "List in help buffer sorted COMPLETIONS.
 Typing SPC flushes the help buffer."
-  (let ((window (get-buffer-window "*Completions*")))
+  (let ((window (get-buffer-window "*Completions*" 0)))
     (setq completions (sort completions 'string-lessp))
     (if (and (eq last-command this-command)
 	     window (window-live-p window) (window-buffer window)