Re: [PATCH] packages: height and width fixes for calc.el
|--==> "APA" == Adrian Aichner <aichner(a)ecf.teradyne.com> writes:
APA> 2001-12-18 Adrian Aichner <adrian(a)xemacs.org>
APA> * calc.el (calc): window and frame width and height fixes by Alan
APA> Wehmann, as posted on comp.emacs.xemacs.
APA> * calc.el (calc-quit): Ditto.
APA> * calc.el (calc-trail-here): Ditto.
Just out of curiosity, what is it that this is supposed to fix? For
me, calc works fine without this patch. And with this patch, calc
dies on startup, complaining about a void variable 'frame-width'.
Adrian, I don't have access to Usenet so could I ask you to forward
this to the patch's author, if you think we should take this further.
Thanks.
APA> packages Patch (cvs -f -z3 -q diff -u xemacs-packages/calc/calc.el):
APA> Index: xemacs-packages/calc/calc.el
APA> ===================================================================
APA> RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/calc/calc.el,v
APA> retrieving revision 1.7
APA> diff -u -r1.7 calc.el
APA> --- xemacs-packages/calc/calc.el 2001/05/14 06:14:29 1.7
APA> +++ xemacs-packages/calc/calc.el 2001/12/18 09:36:21
APA> ＠＠ -1199,7 +1199,7 ＠＠
APA> (save-excursion
APA> (set-buffer (calc-trail-buffer))
APA> (and calc-display-trail
APA> - (= (window-width) (frame-width))
APA> + (= (window-width) (1+ frame-width))
APA> (calc-trail-display 1 t)))
APA> (message "Welcome to the GNU Emacs Calculator! Press `?' or `h'
for help, `q' to quit.")
APA> (run-hooks 'calc-start-hook)
APA> ＠＠ -1265,7 +1265,7 ＠＠
APA> (delete-windows-on (calc-trail-buffer))
APA> (if (and win
APA> (< (window-height win) (1- (frame-height)))
APA> - (= (window-width win) (frame-width)) ; avoid calc-keypad
APA> + (= (window-width win) (1+ frame-width)) ; avoid calc-keypad
APA> (not (get-buffer-window "*Calc Keypad*")))
APA> (setq calc-window-height (- (window-height win) 2)))
APA> (if calc-was-split
APA> ＠＠ -1541,7 +1541,7 ＠＠
APA> (if win
APA> (progn
APA> (calc-cursor-stack-index 0)
APA> - (vertical-motion (- 2 (window-height win)))
APA> + (vertical-motion (- 3 (window-height win)))
APA> (set-window-start win (point)))))
APA> (calc-cursor-stack-index 0)
APA> (if (looking-at " *\\.$")
APA> ＠＠ -1901,7 +1901,7 ＠＠
APA> (if win
APA> (save-excursion
APA> (forward-line (/ (window-height win) 2))
APA> - (forward-line (- 1 (window-height win)))
APA> + (forward-line (- 2 (window-height win)))
APA> (set-window-start win (point))
APA> (set-window-point win (+ calc-trail-pointer 4))
APA> (set-buffer calc-main-buffer)
--
|---<Steve Youngs>---------------<GnuPG KeyID: 10D5C9C5>---|
| XEmacs - It's not just an editor. |
| It's a way of life. |
|------------------------------------<youngs(a)xemacs.org>---|