Mercurial > hg > xemacs-beta
diff lisp/window-xemacs.el @ 1576:bd921b813d33
[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 | e04cd2f562b7 |
| children | c5f86842283a |
line wrap: on
line diff
--- 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)))