Mercurial > emacs

changeset 99657:1fbd12e9307f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(window--frame-usable-p): Allow use for soft-dedication.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Mon, 17 Nov 2008 04:53:55 +0000
parents e20aa9b3858c
children fe36620088f1
files lisp/ChangeLog lisp/window.el
diffstat 2 files changed, 12 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Mon Nov 17 02:26:57 2008 +0000
+++ b/lisp/ChangeLog	Mon Nov 17 04:53:55 2008 +0000
@@ -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'.
 
--- a/lisp/window.el	Mon Nov 17 02:26:57 2008 +0000
+++ b/lisp/window.el	Mon Nov 17 04:53:55 2008 +0000
@@ -869,9 +869,10 @@
       ;; `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