From 114b3e94ec69f283a82298a1607f1943ec22c540 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 29 Jul 2006 11:19:58 +0000 Subject: [PATCH] (bw-get-tree): Don't integerp subtree if it's nil. --- lisp/window.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/window.el b/lisp/window.el index 2ae1a2c9e79..7810ba4c5be 100644 --- a/lisp/window.el +++ b/lisp/window.el @@ -246,9 +246,10 @@ then the smallest tree containing that window is returned." (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) -- 2.39.2