diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2007-03-28 00:51:08 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2007-03-28 00:51:08 +0000 |
| commit | dbb56e39bf5352a1f81112986f29d59ba9ac0556 (patch) | |
| tree | 13f5f9b7e06fb10cc85fc62aa55951bf691f1cce /lisp/comint.el | |
| parent | d3425b35652757ac3f3da401c43e1837c70a50c8 (diff) | |
| download | emacs-dbb56e39bf5352a1f81112986f29d59ba9ac0556.tar.gz | |
(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>.
Diffstat (limited to 'lisp/comint.el')
| -rw-r--r-- | lisp/comint.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/comint.el b/lisp/comint.el index ee102c423b4..52d7b2a1a4e 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -2593,7 +2593,7 @@ its response can be seen." (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 @@ See also `comint-dynamic-complete-filename'." (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) |