# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1128719752 0
# Node ID 13cc64069e8cb8d469eda6b6a4a6c269a935f377
# Parent  94998ac839a58222c57e67685f4e07b5c0fb9351
(calc-do-keypad): Widen keypad window for fullscreen keypad.
Suggested by Luc Teirlinck.
(calc-keypad-show-input): Add space for formatting.

diff -r 94998ac839a5 -r 13cc64069e8c lisp/calc/calc-keypd.el
--- a/lisp/calc/calc-keypd.el	Fri Oct 07 21:15:19 2005 +0000
+++ b/lisp/calc/calc-keypd.el	Fri Oct 07 21:15:52 2005 +0000
@@ -296,7 +296,7 @@
 	      (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))
+	      (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
@@ -384,7 +384,7 @@
 	  (delete-region (point-min) (point))
 	  (if calc-keypad-input
 	      (insert "Calc: " calc-keypad-input "\n")
-	    (insert "----+-----Calc " calc-version "-----+----"
+	    (insert "----+-----Calc " calc-version " -----+----"
 		    (int-to-string (1+ calc-keypad-menu))
 		    "\n")))))
   (setq calc-keypad-prev-input calc-keypad-input))