diff options
| author | Colin Walters <walters@gnu.org> | 2002-03-29 22:55:39 +0000 |
|---|---|---|
| committer | Colin Walters <walters@gnu.org> | 2002-03-29 22:55:39 +0000 |
| commit | 1cc6997c3888a53dcea52f2a967787bb14f447f8 (patch) | |
| tree | 7e3655962770cc1754a761325048f0b8cb44a5f2 /lisp/calc | |
| parent | 214b39be9a09aaaf43ad763fd23c96f5f455513d (diff) | |
| download | emacs-1cc6997c3888a53dcea52f2a967787bb14f447f8.tar.gz | |
(calc-was-split): Var deleted.
(calc): Remove reference to it.
(calc): Ditto.
(calc-quit): Ditto.
Diffstat (limited to 'lisp/calc')
| -rw-r--r-- | lisp/calc/calc.el | 8 |
1 files changed, 1 insertions, 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) |