diff options
| author | Glenn Morris | 2009-12-01 17:04:55 +0000 |
|---|---|---|
| committer | Glenn Morris | 2009-12-01 17:04:55 +0000 |
| commit | 782d6e3016389ce2018c12d8fa047a8b6d5f8a5c (patch) | |
| tree | 7768d01a273585ab6ba81d79be8d6e6fdcef2ff9 | |
| parent | 94423e8a319394ec6c3d1387ea86277797e10f7b (diff) | |
| download | emacs-782d6e3016389ce2018c12d8fa047a8b6d5f8a5c.tar.gz emacs-782d6e3016389ce2018c12d8fa047a8b6d5f8a5c.zip | |
(window--display-buffer-2): Fix previous changes.
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/window.el | 4 |
2 files changed, 5 insertions, 3 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 7b6d96a142d..202770d96af 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,7 @@ | |||
| 1 | 2009-12-01 Glenn Morris <rgm@gnu.org> | ||
| 2 | |||
| 3 | * window.el (window--display-buffer-2): Fix previous changes. | ||
| 4 | |||
| 1 | 2009-12-01 Chong Yidong <cyd@stupidchicken.com> | 5 | 2009-12-01 Chong Yidong <cyd@stupidchicken.com> |
| 2 | 6 | ||
| 3 | * mail/sendmail.el (mail-setup-hook, mail-send-hook): Doc fixes. | 7 | * mail/sendmail.el (mail-setup-hook, mail-send-hook): Doc fixes. |
diff --git a/lisp/window.el b/lisp/window.el index 09e8097cef1..a1ba8500ee5 100644 --- a/lisp/window.el +++ b/lisp/window.el | |||
| @@ -1036,8 +1036,6 @@ Do not raise the selected frame. Return 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. |
| @@ -1045,7 +1043,7 @@ 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 |