From 4afba8195e3a34c4f74fe99e1adaeb1dfe2bba96 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 17 Nov 2008 04:53:55 +0000 Subject: [PATCH] (window--frame-usable-p): Allow use for soft-dedication. --- lisp/ChangeLog | 12 ++++++++---- lisp/window.el | 7 ++++--- 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 + + * window.el (window--frame-usable-p): Allow use for soft-dedication. + 2008-11-17 Juanma Barranquero * 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 -- 2.11.4.GIT