comparison lisp/window.el @ 106355:355b68db8800

(window--display-buffer-2): Fix previous changes.
author Glenn Morris <rgm@gnu.org>
date Tue, 01 Dec 2009 17:04:55 +0000
parents 073d80030060
children 1d1d5d9bd884
comparison
equal deleted inserted replaced
106354:de269b2f72b3 106355:355b68db8800
1034 (and (minibuffer-window-active-p (selected-window)) 1034 (and (minibuffer-window-active-p (selected-window))
1035 (eq frame (window-frame (minibuffer-selected-window))))) 1035 (eq frame (window-frame (minibuffer-selected-window)))))
1036 (raise-frame frame)) 1036 (raise-frame frame))
1037 window)) 1037 window))
1038 1038
1039 (defvar window-to-use) ; dynamically bound in display-buffer
1040
1041 (defun window--display-buffer-2 (buffer window &optional dedicated) 1039 (defun window--display-buffer-2 (buffer window &optional dedicated)
1042 "Display BUFFER in WINDOW and make its frame visible. 1040 "Display BUFFER in WINDOW and make its frame visible.
1043 Set `window-dedicated-p' to DEDICATED if non-nil. 1041 Set `window-dedicated-p' to DEDICATED if non-nil.
1044 Return WINDOW." 1042 Return WINDOW."
1045 (when (and (buffer-live-p buffer) (window-live-p window)) 1043 (when (and (buffer-live-p buffer) (window-live-p window))
1046 (set-window-buffer window buffer) 1044 (set-window-buffer window buffer)
1047 (when dedicated 1045 (when dedicated
1048 (set-window-dedicated-p window-to-use dedicated)) 1046 (set-window-dedicated-p window dedicated))
1049 (window--display-buffer-1 window))) 1047 (window--display-buffer-1 window)))
1050 1048
1051 (defvar display-buffer-mark-dedicated nil 1049 (defvar display-buffer-mark-dedicated nil
1052 "If non-nil, `display-buffer' marks the windows it creates as dedicated. 1050 "If non-nil, `display-buffer' marks the windows it creates as dedicated.
1053 The actual non-nil value of this variable will be copied to the 1051 The actual non-nil value of this variable will be copied to the