(window--frame-usable-p): Consider dedicated windows as usable.

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