From 1cc6997c3888a53dcea52f2a967787bb14f447f8 Mon Sep 17 00:00:00 2001 From: Colin Walters Date: Fri, 29 Mar 2002 22:55:39 +0000 Subject: [PATCH] (calc-was-split): Var deleted. (calc): Remove reference to it. (calc): Ditto. (calc-quit): Ditto. --- lisp/calc/calc.el | 8 +------- 1 file changed, 1 insertion(+), 7 deletions(-) diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el index 31df6bf36d6..8ab0ba61c87 100644 --- a/lisp/calc/calc.el +++ b/lisp/calc/calc.el @@ -709,7 +709,6 @@ This can safely be nil as long as the Calc files are on the load-path.") calc-version-date "Mon Nov 19 2001" calc-trail-pointer nil ; "Current" entry in trail buffer. calc-trail-overlay nil ; Value of overlay-arrow-string. - calc-was-split nil ; Had multiple windows before Calc. calc-undo-list nil ; List of previous operations for undo. calc-redo-list nil ; List of recent undo operations. calc-main-buffer nil ; Pointer to Calculator buffer. @@ -1171,7 +1170,6 @@ commands given here will actually operate on the *Calculator* stack." (switch-to-buffer (current-buffer) t) (if (get-buffer-window (current-buffer)) (select-window (get-buffer-window (current-buffer))) - (setq calc-was-split nil) (if (and (boundp 'calc-window-hook) calc-window-hook) (run-hooks 'calc-window-hook) (let ((w (get-largest-window))) @@ -1179,9 +1177,6 @@ commands given here will actually operate on the *Calculator* stack." (> (window-height w) (+ window-min-height calc-window-height 2))) (progn - (or (one-window-p) - (setq calc-was-split (list w (window-height w) - (selected-window)))) (setq w (split-window w (- (window-height w) calc-window-height 2) @@ -1258,8 +1253,7 @@ commands given here will actually operate on the *Calculator* stack." (= (window-width win) (frame-width)) ; avoid calc-keypad (not (get-buffer-window "*Calc Keypad*"))) (setq calc-window-height (- (window-height win) 2))) - (if calc-was-split - (calc-delete-windows-keep buf kbuf) + (progn (delete-windows-on buf) (delete-windows-on kbuf)) (bury-buffer buf) -- 2.39.2