Mercurial > hg > xemacs-beta

changeset 1576:bd921b813d33

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2003-07-17 14:41:23 by james] Follow first-hchild and first-vchild links even when next-child is nil.
author james
date Thu, 17 Jul 2003 14:41:24 +0000
parents e0ca0b9b1a35
children 8030dd524aac
files lisp/ChangeLog lisp/window-xemacs.el
diffstat 2 files changed, 26 insertions(+), 22 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Thu Jul 17 13:10:49 2003 +0000
+++ b/lisp/ChangeLog	Thu Jul 17 14:41:24 2003 +0000
@@ -1,3 +1,8 @@
+2003-07-16  Jerry James  <james@xemacs.org>
+
+	* window-xemacs.el (restore-saved-window): Follow first-hchild and
+	first-vchild links even when next-child is nil.
+
 2003-07-06  Adrian Aichner  <adrian@xemacs.org>
 
 	* package-get.el (package-get-package-index-file-location): Handle
--- a/lisp/window-xemacs.el	Thu Jul 17 13:10:49 2003 +0000
+++ b/lisp/window-xemacs.el	Thu Jul 17 14:41:24 2003 +0000
@@ -345,29 +345,28 @@
 
 (defun restore-saved-window (configuration window saved-window direction)
   "Within CONFIGURATION, restore WINDOW to the state of SAVED-WINDOW."
-  (if (saved-window-next-child saved-window)
-      (progn
-	(if (not (saved-window-minibufferp (saved-window-next-child saved-window)))
-	    (progn
-	      (cond ((eq direction 'vertical)
-		     (split-window window nil nil))
-		    ((eq direction 'horizontal)
-		     (split-window window nil t)))
-	      (restore-saved-window configuration
-				    (window-next-child window)
-				    (saved-window-next-child saved-window)
-				    direction)))
+  (and (saved-window-next-child saved-window)
+       (not (saved-window-minibufferp (saved-window-next-child saved-window)))
+       (progn
+	 (cond ((eq direction 'vertical)
+		(split-window window nil nil))
+	       ((eq direction 'horizontal)
+		(split-window window nil t)))
+	 (restore-saved-window configuration
+			       (window-next-child window)
+			       (saved-window-next-child saved-window)
+			       direction)))
 
-	(if (saved-window-first-hchild saved-window)
-	    (restore-saved-window configuration
-				  window
-				  (saved-window-first-hchild saved-window)
-				  'horizontal))
-	(if (saved-window-first-vchild saved-window)
-	    (restore-saved-window configuration
-				  window
-				  (saved-window-first-vchild saved-window)
-				  'vertical))))
+  (if (saved-window-first-hchild saved-window)
+      (restore-saved-window configuration
+			    window
+			    (saved-window-first-hchild saved-window)
+			    'horizontal))
+  (if (saved-window-first-vchild saved-window)
+      (restore-saved-window configuration
+			    window
+			    (saved-window-first-vchild saved-window)
+			    'vertical))
 
   (if (not (saved-window-minibufferp saved-window))
       (restore-saved-window-parameters configuration window saved-window)))