diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2005-07-04 02:39:37 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2005-07-04 02:39:37 +0000 |
| commit | 111a5355b7e050c78a8e9e7a6b781957547f2bde (patch) | |
| tree | a76befd885a8adf0db8f43c1fadff31b4a66ae44 /lisp/calc | |
| parent | 59f678fef4cb8f338a5aa2a2eddb88d9700aa202 (diff) | |
| download | emacs-111a5355b7e050c78a8e9e7a6b781957547f2bde.tar.gz | |
(calc): Finish `defgroup' description with period.
(math-format-stack-value): "?\ " -> "?\s".
Diffstat (limited to 'lisp/calc')
| -rw-r--r-- | lisp/calc/calc.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el index 3a99291fdef..7317c2a7b9a 100644 --- a/lisp/calc/calc.el +++ b/lisp/calc/calc.el @@ -207,7 +207,7 @@ (require 'calc-macs) (defgroup calc nil - "GNU Calc" + "GNU Calc." :prefix "calc-" :tag "Calc" :group 'applications) @@ -3026,10 +3026,10 @@ See calc-keypad for details." (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 @@ See calc-keypad for details." (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) |