diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-11-18 20:45:21 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-11-18 20:45:21 +0000 |
| commit | 064e57de239f3c3d03a035a9f56c71037715b40e (patch) | |
| tree | 3b89e50742307bc5c2f74a96cd406316f368fe67 | |
| parent | 35b05a7793f3e0f702ee8cd5aec68b2acbe815cd (diff) | |
| download | emacs-064e57de239f3c3d03a035a9f56c71037715b40e.tar.gz | |
(window--frame-usable-p): Consider dedicated windows as usable.
| -rw-r--r-- | lisp/ChangeLog | 2 | ||||
| -rw-r--r-- | lisp/window.el | 7 |
2 files changed, 8 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0d76f444be9..44592db06ac 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,7 @@ 2008-11-18 Stefan Monnier <monnier@iro.umontreal.ca> + * window.el (window--frame-usable-p): Consider dedicated windows as usable. + * files.el (confirm-nonexistent-file-or-buffer): Rename from find-file-confirm-nonexistent-file. (read-buffer-to-switch): Use it. diff --git a/lisp/window.el b/lisp/window.el index 8657842cfb8..02af7bd6c54 100644 --- a/lisp/window.el +++ b/lisp/window.el @@ -872,7 +872,12 @@ by `split-window' (or `split-window-preferred-function')." (unless (and (window-live-p window) (or (window-minibuffer-p window) ;; If the window is soft-dedicated, the frame is usable. - (eq t (window-dedicated-p window)))) + ;; Actually, even if the window is really dedicated, + ;; the frame is still usable by splitting it. + ;; At least Emacs-22 allowed it, and it is desirable + ;; when displaying same-frame windows. + nil ; (eq t (window-dedicated-p window)) + )) frame)))) (defcustom even-window-heights t |