diff options
| author | Richard M. Stallman | 1998-04-30 04:23:59 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-04-30 04:23:59 +0000 |
| commit | eed1360c124fb6cb11e9e0df771ed86a6883ad27 (patch) | |
| tree | 61221f129c5c2be3a4eedd77d51a8b511b7640b6 | |
| parent | eabb24d041c01f5f927363aa924ca90a0bdf3522 (diff) | |
| download | emacs-eed1360c124fb6cb11e9e0df771ed86a6883ad27.tar.gz emacs-eed1360c124fb6cb11e9e0df771ed86a6883ad27.zip | |
(quit-window): Don't try to switch buffers
in a dedicated window or a minibuffer window.
Treat minibuffer window as dedicated in other ways too.
| -rw-r--r-- | lisp/window.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/window.el b/lisp/window.el index 6b8709b00f3..025f0a82d10 100644 --- a/lisp/window.el +++ b/lisp/window.el | |||
| @@ -314,11 +314,13 @@ and the buffer that is killed or buried is the one in that window." | |||
| 314 | (save-selected-window | 314 | (save-selected-window |
| 315 | (if window | 315 | (if window |
| 316 | (select-window window)) | 316 | (select-window window)) |
| 317 | (switch-to-buffer (other-buffer))) | 317 | (or (window-minibuffer-p) |
| 318 | (window-dedicated-p (selected-window)) | ||
| 319 | (switch-to-buffer (other-buffer)))) | ||
| 318 | 320 | ||
| 319 | ;; Get rid of the frame, if it has just one dedicated window | 321 | ;; Get rid of the frame, if it has just one dedicated window |
| 320 | ;; and other visible frames exist. | 322 | ;; and other visible frames exist. |
| 321 | (and (window-dedicated-p window) | 323 | (and (or (window-minibuffer-p) (window-dedicated-p window)) |
| 322 | (delq frame (visible-frame-list)) | 324 | (delq frame (visible-frame-list)) |
| 323 | window-solitary | 325 | window-solitary |
| 324 | (if (and (eq default-minibuffer-frame frame) | 326 | (if (and (eq default-minibuffer-frame frame) |