Commit 3f2f0fb7 authored by Jay Belanger's avatar Jay Belanger
Browse files

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

Suggested by Luc Teirlinck.
(calc-keypad-show-input): Add space for formatting.
parent 05d28205
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment