diff options
| author | Martin Rudalics | 2009-01-05 09:52:53 +0000 |
|---|---|---|
| committer | Martin Rudalics | 2009-01-05 09:52:53 +0000 |
| commit | 29c455000591ba0f0aa319eae4df8c2e0b69edc4 (patch) | |
| tree | 435a7f40cced2a7b5759d14a38f6553a29d82dfb | |
| parent | ae940284fa77a6928f5162b7de859e67bdc7506c (diff) | |
| download | emacs-29c455000591ba0f0aa319eae4df8c2e0b69edc4.tar.gz emacs-29c455000591ba0f0aa319eae4df8c2e0b69edc4.zip | |
(display-buffer): Fix last fix.
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/window.el | 7 |
2 files changed, 7 insertions, 4 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 988a1689d3d..10fcc280be8 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,7 @@ | |||
| 1 | 2009-01-05 Martin Rudalics <rudalics@gmx.at> | ||
| 2 | |||
| 3 | * window.el (display-buffer): Fix last fix. | ||
| 4 | |||
| 1 | 2009-01-05 Juanma Barranquero <lekktu@gmail.com> | 5 | 2009-01-05 Juanma Barranquero <lekktu@gmail.com> |
| 2 | 6 | ||
| 3 | * desktop.el (desktop-save-in-desktop-dir): Use `abbreviate-file-name' | 7 | * desktop.el (desktop-save-in-desktop-dir): Use `abbreviate-file-name' |
diff --git a/lisp/window.el b/lisp/window.el index da49107f7d1..c529e272ce2 100644 --- a/lisp/window.el +++ b/lisp/window.el | |||
| @@ -1008,10 +1008,9 @@ consider all visible or iconified frames." | |||
| 1008 | (last-nonminibuffer-frame)))) | 1008 | (last-nonminibuffer-frame)))) |
| 1009 | (setq window-to-use | 1009 | (setq window-to-use |
| 1010 | (catch 'found | 1010 | (catch 'found |
| 1011 | ;; Search all visible and iconified frames for a window | 1011 | ;; Search frames for a window displaying BUFFER. Return |
| 1012 | ;; displaying BUFFER. Return the selected window only | 1012 | ;; the selected window only if we are allowed to do so. |
| 1013 | ;; if can-use-selected-window says we may do so. | 1013 | (dolist (window (get-buffer-window-list buffer 'nomini frames)) |
| 1014 | (dolist (window (get-buffer-window-list buffer 'nomini 0)) | ||
| 1015 | (when (or can-use-selected-window | 1014 | (when (or can-use-selected-window |
| 1016 | (not (eq (selected-window) window))) | 1015 | (not (eq (selected-window) window))) |
| 1017 | (throw 'found window)))))) | 1016 | (throw 'found window)))))) |