From 3f2f0fb736191cbd331241641157ce0c8412bd49 Mon Sep 17 00:00:00 2001 From: Jay Belanger Date: Fri, 7 Oct 2005 21:15:52 +0000 Subject: [PATCH] (calc-do-keypad): Widen keypad window for fullscreen keypad. Suggested by Luc Teirlinck. (calc-keypad-show-input): Add space for formatting. --- lisp/calc/calc-keypd.el | 4 ++-- 1 file 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)) -- 2.39.5