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

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

diff --git a/lisp/calc/calc-keypd.el b/lisp/calc/calc-keypd.el
index f3034bdd4b3a8b25be7386b037751da123fcacc9..475592c8ab6261522cf9d054b6aa90137e1e11bc 100644 (file)
--- 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))