217 |
(if newbot |
(if newbot |
218 |
(setq newsizes |
(setq newsizes |
219 |
(cons (cons w (* level-size (- newbot newtop))) |
(cons (cons w (* level-size (- newbot newtop))) |
220 |
newsizes))))))) |
newsizes)))))) |
221 |
'nomini) |
'nomini) |
222 |
;; Make walk-windows start with the topmost window. |
;; Make walk-windows start with the topmost window. |
223 |
(select-window (previous-window (frame-first-window (selected-frame)))) |
(select-window (previous-window (frame-first-window (selected-frame)))) |
237 |
nil t) |
nil t) |
238 |
(unless (= (window-height) newsize) |
(unless (= (window-height) newsize) |
239 |
(setq done nil)))))) |
(setq done nil)))))) |
240 |
'nomini))))) |
'nomini)))))) |
241 |
|
|
242 |
;;; I think this should be the default; I think people will prefer it--rms. |
;;; I think this should be the default; I think people will prefer it--rms. |
243 |
(defcustom split-window-keep-point t |
(defcustom split-window-keep-point t |