mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases Activity

(display-buffer): Fix last fix.

Browse Source
This commit is contained in:
Martin Rudalics 2009-01-05 09:52:53 +00:00
parent ae940284fa
commit 29c4550005
2 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,3 +1,7 @@
2009-01-05 Martin Rudalics <rudalics@gmx.at>
* window.el (display-buffer): Fix last fix.
2009-01-05 Juanma Barranquero <lekktu@gmail.com>
* desktop.el (desktop-save-in-desktop-dir): Use `abbreviate-file-name'

7
lisp/window.el
View File

@ -1008,10 +1008,9 @@ consider all visible or iconified frames."
(last-nonminibuffer-frame))))
(setq window-to-use
(catch 'found
;; Search all visible and iconified frames for a window
;; displaying BUFFER. Return the selected window only
;; if can-use-selected-window says we may do so.
(dolist (window (get-buffer-window-list buffer 'nomini 0))
;; Search frames for a window displaying BUFFER. Return
;; the selected window only if we are allowed to do so.
(dolist (window (get-buffer-window-list buffer 'nomini frames))
(when (or can-use-selected-window
(not (eq (selected-window) window)))
(throw 'found window))))))