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&gt; * 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/