Mercurial > emacs

changeset 65900:13cc64069e8c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(calc-do-keypad): Widen keypad window for fullscreen keypad. Suggested by Luc Teirlinck. (calc-keypad-show-input): Add space for formatting.
author Jay Belanger <jay.p.belanger@gmail.com>
date Fri, 07 Oct 2005 21:15:52 +0000
parents 94998ac839a5
children f4c158053fb0
files lisp/calc/calc-keypd.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calc/calc-keypd.el	Fri Oct 07 21:15:19 2005 +0000
+++ b/lisp/calc/calc-keypd.el	Fri Oct 07 21:15:52 2005 +0000
@@ -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))