Commit a2baa908 authored by Jay Belanger's avatar Jay Belanger

(calc-quit): Use `window-full-width-p' to check window width.

parent d9bf544c
2008-11-05 Jay Belanger <jay.p.belanger@gmail.com>
* calc/calc.el (calc-quit): Use `window-full-width-p' to check
window width.
2008-11-05 Chong Yidong <cyd@stupidchicken.com>
* server.el (server-process-filter): Only default to emacsclient's
......
......@@ -1424,9 +1424,12 @@ commands given here will actually operate on the *Calculator* stack."
(win (get-buffer-window (current-buffer)))
(kbuf (get-buffer "*Calc Keypad*")))
(delete-windows-on (calc-trail-buffer))
;; The next few lines will set `calc-window-height' so that the
;; next time Calc is called, the window will be the same size
;; as the current window.
(if (and win
(< (window-height win) (1- (frame-height)))
(= (window-width win) (frame-width)) ; avoid calc-keypad
(window-full-width-p win) ; avoid calc-keypad
(not (get-buffer-window "*Calc Keypad*")))
(setq calc-window-height (- (window-height win) 2)))
(progn
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment