Mercurial > emacs
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 |