[Emacs-diffs] Changes to emacs/lisp/calc/calc-keypd.el

[Jay Belanger]

Index: emacs/lisp/calc/calc-keypd.el
diff -c emacs/lisp/calc/calc-keypd.el:1.11 emacs/lisp/calc/calc-keypd.el:1.12
*** emacs/lisp/calc/calc-keypd.el:1.11  Thu Jul 14 19:41:28 2005
--- emacs/lisp/calc/calc-keypd.el       Fri Oct  7 21:15:52 2005
***************
*** 296,302 ****
              (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))
              (set-window-buffer win calcbuf))
          (if (or t  ; left-side keypad not yet fully implemented
                  (< (save-excursion
--- 296,302 ----
              (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 7) t))
              (set-window-buffer win calcbuf))
          (if (or t  ; left-side keypad not yet fully implemented
                  (< (save-excursion
***************
*** 384,390 ****
          (delete-region (point-min) (point))
          (if calc-keypad-input
              (insert "Calc: " calc-keypad-input "\n")
!           (insert "----+-----Calc " calc-version "-----+----"
                    (int-to-string (1+ calc-keypad-menu))
                    "\n")))))
    (setq calc-keypad-prev-input calc-keypad-input))
--- 384,390 ----
          (delete-region (point-min) (point))
          (if calc-keypad-input
              (insert "Calc: " calc-keypad-input "\n")
!           (insert "----+-----Calc " calc-version " -----+----"
                    (int-to-string (1+ calc-keypad-menu))
                    "\n")))))
    (setq calc-keypad-prev-input calc-keypad-input))