(window--frame-usable-p): Allow use for soft-dedication.

2 files changed, 12 insertions, 7 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7224e4c0b56..163751cd8ec 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2008-11-17  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+        * window.el (window--frame-usable-p): Allow use for soft-dedication.
+
 2008-11-17  Juanma Barranquero  <lekktu@gmail.com>
 
         * emulation/viper-cmd.el (viper-harness-minor-mode): Fix docstring typo.
@@ -17,8 +21,8 @@
         `isearch-filter-invisible'.  Doc fix.
         (isearch-filter-invisible): Rename from
         `isearch-success-function-default'.  Doc fix.
-        (isearch-search, isearch-lazy-highlight-search): Rename
-        `isearch-success-function' to `isearch-filter-predicate'.
+        (isearch-search, isearch-lazy-highlight-search):
+        Rename `isearch-success-function' to `isearch-filter-predicate'.
 
         * dired-aux.el (dired-isearch-filter-predicate-orig): Rename from
         `dired-isearch-orig-success-function'.
@@ -28,8 +32,8 @@
         (dired-isearch-filter-filenames): Rename from
         `dired-isearch-success-function'.
 
-        * info.el (Info-search, Info-mode): Rename
-        `isearch-success-function' to `isearch-filter-predicate'.
+        * info.el (Info-search, Info-mode):
+        Rename `isearch-success-function' to `isearch-filter-predicate'.
         (Info-isearch-filter-predicate): Rename from
         `Info-search-success-function'.
 
diff --git a/lisp/window.el b/lisp/window.el
index 295f528ecc2..2dece4b25fe 100644
--- a/lisp/window.el
+++ b/lisp/window.el
@@ -869,9 +869,10 @@ by `split-window' (or `split-window-preferred-function')."
       ;; `frame-root-window' may be an internal window which is considered
       ;; "dead" by `window-live-p'.  Hence if `window' is not live we
       ;; implicitly know that `frame' has a visible window we can use.
-      (when (or (not (window-live-p window))
-                (and (not (window-minibuffer-p window))
-                     (not (window-dedicated-p window))))
+      (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))))
         frame))))
 
 (defcustom even-window-heights t