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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7224e4c0b561de2d6d80a5eca6c8a3ff91ce3fda..163751cd8eca7ce6182354a35ab01af545487efb 100644 (file)
--- 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 295f528ecc2af66d826f8b89046b3e73bfd4806c..2dece4b25fef570714e5870bdfc26a116b381b93 100644 (file)
--- 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