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 @@ ...@@ -296,7 +296,7 @@
(set-window-buffer old-win (calc-trail-buffer)) (set-window-buffer old-win (calc-trail-buffer))
(set-window-buffer win calc-keypad-buffer) (set-window-buffer win calc-keypad-buffer)
(set-window-start win 1) (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)) (set-window-buffer win calcbuf))
(if (or t ; left-side keypad not yet fully implemented (if (or t ; left-side keypad not yet fully implemented
(< (save-excursion (< (save-excursion
...@@ -384,7 +384,7 @@ ...@@ -384,7 +384,7 @@
(delete-region (point-min) (point)) (delete-region (point-min) (point))
(if calc-keypad-input (if calc-keypad-input
(insert "Calc: " calc-keypad-input "\n") (insert "Calc: " calc-keypad-input "\n")
(insert "----+-----Calc " calc-version "-----+----" (insert "----+-----Calc " calc-version " -----+----"
(int-to-string (1+ calc-keypad-menu)) (int-to-string (1+ calc-keypad-menu))
"\n"))))) "\n")))))
(setq calc-keypad-prev-input calc-keypad-input)) (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