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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0d76f444be930f32302c7cbe4160f198230f08fb..44592db06acfb2a02fe2a7478c4f4f25d7b2bc70 100644 (file)
--- 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 8657842cfb8febd90864517f6ff6dc3dd9265e85..02af7bd6c5459a1f5490bc3cc1937de8cf74d23e 100644 (file)
--- 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