diff options
| author | Juanma Barranquero | 2005-07-04 02:39:37 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2005-07-04 02:39:37 +0000 |
| commit | 111a5355b7e050c78a8e9e7a6b781957547f2bde (patch) | |
| tree | a76befd885a8adf0db8f43c1fadff31b4a66ae44 | |
| parent | 59f678fef4cb8f338a5aa2a2eddb88d9700aa202 (diff) | |
| download | emacs-111a5355b7e050c78a8e9e7a6b781957547f2bde.tar.gz emacs-111a5355b7e050c78a8e9e7a6b781957547f2bde.zip | |
(calc): Finish `defgroup' description with period.
(math-format-stack-value): "?\ " -> "?\s".
| -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 @@ | |||
| 207 | (require 'calc-macs) | 207 | (require 'calc-macs) |
| 208 | 208 | ||
| 209 | (defgroup calc nil | 209 | (defgroup calc nil |
| 210 | "GNU Calc" | 210 | "GNU Calc." |
| 211 | :prefix "calc-" | 211 | :prefix "calc-" |
| 212 | :tag "Calc" | 212 | :tag "Calc" |
| 213 | :group 'applications) | 213 | :group 'applications) |
| @@ -3026,10 +3026,10 @@ See calc-keypad for details." | |||
| 3026 | (setq w (cdr off) | 3026 | (setq w (cdr off) |
| 3027 | off (car off)) | 3027 | off (car off)) |
| 3028 | (when (> off 0) | 3028 | (when (> off 0) |
| 3029 | (setq c (math-comp-concat (make-string off ? ) c))) | 3029 | (setq c (math-comp-concat (make-string off ?\s) c))) |
| 3030 | (or (equal calc-left-label "") | 3030 | (or (equal calc-left-label "") |
| 3031 | (setq c (math-comp-concat (if (eq a 'top-of-stack) | 3031 | (setq c (math-comp-concat (if (eq a 'top-of-stack) |
| 3032 | (make-string (length calc-left-label) ? ) | 3032 | (make-string (length calc-left-label) ?\s) |
| 3033 | calc-left-label) | 3033 | calc-left-label) |
| 3034 | c))) | 3034 | c))) |
| 3035 | (when calc-line-numbering | 3035 | (when calc-line-numbering |
| @@ -3044,7 +3044,7 @@ See calc-keypad for details." | |||
| 3044 | (require 'calc-ext) | 3044 | (require 'calc-ext) |
| 3045 | (setq c (list 'horiz c | 3045 | (setq c (list 'horiz c |
| 3046 | (make-string (max (- w (math-comp-width c) | 3046 | (make-string (max (- w (math-comp-width c) |
| 3047 | (length calc-right-label)) 0) ? ) | 3047 | (length calc-right-label)) 0) ?\s) |
| 3048 | '(break -1) | 3048 | '(break -1) |
| 3049 | calc-right-label))) | 3049 | calc-right-label))) |
| 3050 | (setq s (if (stringp c) | 3050 | (setq s (if (stringp c) |