diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-11-17 04:53:55 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-11-17 04:53:55 +0000 |
| commit | 4afba8195e3a34c4f74fe99e1adaeb1dfe2bba96 (patch) | |
| tree | ba68fc709966cbd954a0692da586bab1af8b1834 /lisp/window.el | |
| parent | a6387c8d173da129d8a703705145f35072d53936 (diff) | |
| download | emacs-4afba8195e3a34c4f74fe99e1adaeb1dfe2bba96.tar.gz emacs-4afba8195e3a34c4f74fe99e1adaeb1dfe2bba96.tar.bz2 emacs-4afba8195e3a34c4f74fe99e1adaeb1dfe2bba96.zip | |
(window--frame-usable-p): Allow use for soft-dedication.
Diffstat (limited to 'lisp/window.el')
| -rw-r--r-- | lisp/window.el | 7 |
1 files changed, 4 insertions, 3 deletions
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 |