[PATCH] packages: height and width fixes for calc.el
Hi Steve,
here it is.
Please take it from here.
I have not tested this.
Best regards,
Adrian
xemacs-packages/calc/ChangeLog addition:
2001-12-18 Adrian Aichner <adrian(a)xemacs.org>
* calc.el (calc): window and frame width and height fixes by Alan
Wehmann, as posted on comp.emacs.xemacs.
* calc.el (calc-quit): Ditto.
* calc.el (calc-trail-here): Ditto.
packages Patch (cvs -f -z3 -q diff -u xemacs-packages/calc/calc.el):
Index: xemacs-packages/calc/calc.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/calc/calc.el,v
retrieving revision 1.7
diff -u -r1.7 calc.el
--- xemacs-packages/calc/calc.el 2001/05/14 06:14:29 1.7
+++ xemacs-packages/calc/calc.el 2001/12/18 09:36:21
＠＠ -1199,7 +1199,7 ＠＠
(save-excursion
(set-buffer (calc-trail-buffer))
(and calc-display-trail
- (= (window-width) (frame-width))
+ (= (window-width) (1+ frame-width))
(calc-trail-display 1 t)))
(message "Welcome to the GNU Emacs Calculator! Press `?' or `h' for help,
`q' to quit.")
(run-hooks 'calc-start-hook)
＠＠ -1265,7 +1265,7 ＠＠
(delete-windows-on (calc-trail-buffer))
(if (and win
(< (window-height win) (1- (frame-height)))
- (= (window-width win) (frame-width)) ; avoid calc-keypad
+ (= (window-width win) (1+ frame-width)) ; avoid calc-keypad
(not (get-buffer-window "*Calc Keypad*")))
(setq calc-window-height (- (window-height win) 2)))
(if calc-was-split
＠＠ -1541,7 +1541,7 ＠＠
(if win
(progn
(calc-cursor-stack-index 0)
- (vertical-motion (- 2 (window-height win)))
+ (vertical-motion (- 3 (window-height win)))
(set-window-start win (point)))))
(calc-cursor-stack-index 0)
(if (looking-at " *\\.$")
＠＠ -1901,7 +1901,7 ＠＠
(if win
(save-excursion
(forward-line (/ (window-height win) 2))
- (forward-line (- 1 (window-height win)))
+ (forward-line (- 2 (window-height win)))
(set-window-start win (point))
(set-window-point win (+ calc-trail-pointer 4))
(set-buffer calc-main-buffer)
--
Adrian Aichner
mailto:adrian＠xemacs.org
http://www.xemacs.org/