mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-03 11:33:37 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Jay Belanger 2008-11-05 22:12:21 +00:00
parent d9bf544c71
commit a2baa90802
2 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
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

5
lisp/calc/calc.el
View File

@ -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