# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1154171998 0
# Node ID 9482f7b84d4d359ca7a4848bbb908d778de6eca2
# Parent  b6eeaa75a14ab3999bbd58cda5d25572deb5c775
(bw-get-tree): Don't integerp subtree if it's nil.

diff -r b6eeaa75a14a -r 9482f7b84d4d lisp/window.el
--- a/lisp/window.el	Sat Jul 29 11:12:06 2006 +0000
+++ b/lisp/window.el	Sat Jul 29 11:19:58 2006 +0000
@@ -246,9 +246,10 @@
                 (windowp window-or-frame))
       (error "Not a frame or window: %s" window-or-frame)))
   (let ((subtree (bw-find-tree-sub window-or-frame)))
-    (if (integerp subtree)
-        nil
-      (bw-get-tree-1 subtree))))
+    (when subtree
+      (if (integerp subtree)
+	  nil
+	(bw-get-tree-1 subtree)))))
 
 (defun bw-get-tree-1 (split)
   (if (windowp split)