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

[Juanma Barranquero]

Index: emacs/lisp/calc/calc.el
diff -c emacs/lisp/calc/calc.el:1.61 emacs/lisp/calc/calc.el:1.62
*** emacs/lisp/calc/calc.el:1.61        Mon May 30 21:03:51 2005
--- emacs/lisp/calc/calc.el     Mon Jul  4 02:39:37 2005
***************
*** 207,213 ****
  (require 'calc-macs)
  
  (defgroup calc nil
!   "GNU Calc"
    :prefix "calc-"
    :tag    "Calc"
    :group  'applications)
--- 207,213 ----
  (require 'calc-macs)
  
  (defgroup calc nil
!   "GNU Calc."
    :prefix "calc-"
    :tag    "Calc"
    :group  'applications)
***************
*** 3026,3035 ****
      (setq w (cdr off)
          off (car off))
      (when (> off 0)
!       (setq c (math-comp-concat (make-string off ? ) c)))
      (or (equal calc-left-label "")
        (setq c (math-comp-concat (if (eq a 'top-of-stack)
!                                     (make-string (length calc-left-label) ? )
                                    calc-left-label)
                                  c)))
      (when calc-line-numbering
--- 3026,3035 ----
      (setq w (cdr off)
          off (car off))
      (when (> off 0)
!       (setq c (math-comp-concat (make-string off ?\s) c)))
      (or (equal calc-left-label "")
        (setq c (math-comp-concat (if (eq a 'top-of-stack)
!                                     (make-string (length calc-left-label) ?\s)
                                    calc-left-label)
                                  c)))
      (when calc-line-numbering
***************
*** 3044,3050 ****
        (require 'calc-ext)
        (setq c (list 'horiz c
                    (make-string (max (- w (math-comp-width c)
!                                        (length calc-right-label)) 0) ? )
                    '(break -1)
                    calc-right-label)))
      (setq s (if (stringp c)
--- 3044,3050 ----
        (require 'calc-ext)
        (setq c (list 'horiz c
                    (make-string (max (- w (math-comp-width c)
!                                        (length calc-right-label)) 0) ?\s)
                    '(break -1)
                    calc-right-label)))
      (setq s (if (stringp c)