(calc-do-keypad): Widen keypad window for fullscreen keypad.

Suggested by Luc Teirlinck.
(calc-keypad-show-input): Add space for formatting.

1 files changed, 2 insertions, 2 deletions

diff --git a/lisp/calc/calc-keypd.el b/lisp/calc/calc-keypd.el
index f3034bdd4b3..475592c8ab6 100644
--- a/lisp/calc/calc-keypd.el
+++ b/lisp/calc/calc-keypd.el
@@ -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))