Mercurial > emacs
diff lisp/calc/calc.el @ 64027:ba3f24a57b73
(calc): Finish `defgroup' description with period.
(math-format-stack-value): "?\ " -> "?\s".
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Mon, 04 Jul 2005 02:39:37 +0000 |
| parents | bc2eee483e93 |
| children | a0570a2818b2 f9a65d7ebd29 |
line wrap: on
line diff
--- a/lisp/calc/calc.el Mon Jul 04 02:37:40 2005 +0000 +++ b/lisp/calc/calc.el Mon Jul 04 02:39:37 2005 +0000 @@ -207,7 +207,7 @@ (require 'calc-macs) (defgroup calc nil - "GNU Calc" + "GNU Calc." :prefix "calc-" :tag "Calc" :group 'applications) @@ -3026,10 +3026,10 @@ (setq w (cdr off) off (car off)) (when (> off 0) - (setq c (math-comp-concat (make-string off ? ) c))) + (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) ? ) + (make-string (length calc-left-label) ?\s) calc-left-label) c))) (when calc-line-numbering @@ -3044,7 +3044,7 @@ (require 'calc-ext) (setq c (list 'horiz c (make-string (max (- w (math-comp-width c) - (length calc-right-label)) 0) ? ) + (length calc-right-label)) 0) ?\s) '(break -1) calc-right-label))) (setq s (if (stringp c)