diff options
author | Jay Belanger <jay.p.belanger@gmail.com> | 2005-10-07 21:15:52 +0000 |
---|---|---|
committer | Jay Belanger <jay.p.belanger@gmail.com> | 2005-10-07 21:15:52 +0000 |
commit | 3f2f0fb736191cbd331241641157ce0c8412bd49 (patch) | |
tree | b80385b0757dfc75dd70c701b1f4fd6b103c74db /lisp/calc | |
parent | 05d2820548fdca099a7b1eaddeda70d1849618b0 (diff) | |
download | emacs-3f2f0fb736191cbd331241641157ce0c8412bd49.tar.gz |
(calc-do-keypad): Widen keypad window for fullscreen keypad.
Suggested by Luc Teirlinck.
(calc-keypad-show-input): Add space for formatting.
Diffstat (limited to 'lisp/calc')
-rw-r--r-- | lisp/calc/calc-keypd.el | 4 |
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)) |