Size of *Calc-kpd* window too small after M-# b M-# k

Size of *Calc-kpd* window too small after M-# b M-# k

[Luc Teirlinck]

Do `emacs -nbc -Q&', `M-# b M-# k'.  Part of the keypad is hidden:
`calc-do-keypad' apparently does not take the size of the fringes into
account.  The trivial patch below fixes this for the default fringe
width.  It would probably be better to use the actual size of the
fringes, but the same applies to other window width computations of
calc, which seem to simply use the default fringe width (or ignore
fringe width altogether).  I know of no other window widths that calc
uses that give trouble with the default fringe width, although line
309 of calc-keypad.el also seems dubious:

	    (setq old-win (split-window old-win (+ width 2) t)))

The patch below does not change that line, only line 299.

===File ~/calc-keypd.el-diff================================
*** calc-keypd.el	14 Jul 2005 15:03:58 -0500	1.11
--- calc-keypd.el	06 Oct 2005 19:48:36 -0500	
***************
*** 296,302 ****
  	      (set-window-buffer old-win (calc-trail-buffer))
  	      (set-window-buffer win calc-keypad-buffer)
  	      (set-window-start win 1)
! 	      (setq win (split-window win (+ width 3) t))
  	      (set-window-buffer win calcbuf))
  	  (if (or t  ; left-side keypad not yet fully implemented
  		  (< (save-excursion
--- 296,302 ----
  	      (set-window-buffer old-win (calc-trail-buffer))
  	      (set-window-buffer win calc-keypad-buffer)
  	      (set-window-start win 1)
! 	      (setq win (split-window win (+ width 6) t))
  	      (set-window-buffer win calcbuf))
  	  (if (or t  ; left-side keypad not yet fully implemented
  		  (< (save-excursion
============================================================

Re: Size of *Calc-kpd* window too small after M-# b M-# k

[Luc Teirlinck]

>From my earlier message:

   The trivial patch below fixes this for the default fringe width.

Actually, the `6' needs to be a `7'.  Otherwise, one gets confusing
continuation arrows if overflow-newline-into-fringe is nil.

===File ~/calc-keypd.el-diff================================
*** calc-keypd.el	14 Jul 2005 15:03:58 -0500	1.11
--- calc-keypd.el	06 Oct 2005 19:48:36 -0500	
***************
*** 296,302 ****
  	      (set-window-buffer old-win (calc-trail-buffer))
  	      (set-window-buffer win calc-keypad-buffer)
  	      (set-window-start win 1)
! 	      (setq win (split-window win (+ width 3) t))
  	      (set-window-buffer win calcbuf))
  	  (if (or t  ; left-side keypad not yet fully implemented
  		  (< (save-excursion
--- 296,302 ----
  	      (set-window-buffer old-win (calc-trail-buffer))
  	      (set-window-buffer win calc-keypad-buffer)
  	      (set-window-start win 1)
! 	      (setq win (split-window win (+ width 7) t))
  	      (set-window-buffer win calcbuf))
  	  (if (or t  ; left-side keypad not yet fully implemented
  		  (< (save-excursion
============================================================

Re: Size of *Calc-kpd* window too small after M-# b M-# k

[Jay Belanger]

Luc Teirlinck <teirllm@dms.auburn.edu> writes:

>>From my earlier message:
>
>    The trivial patch below fixes this for the default fringe width.
>
> Actually, the `6' needs to be a `7'.  Otherwise, one gets confusing
> continuation arrows if overflow-newline-into-fringe is nil.

Thanks; the change has been made.

Jay