aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJuanma Barranquero2005-07-04 02:39:37 +0000
committerJuanma Barranquero2005-07-04 02:39:37 +0000
commit111a5355b7e050c78a8e9e7a6b781957547f2bde (patch)
treea76befd885a8adf0db8f43c1fadff31b4a66ae44
parent59f678fef4cb8f338a5aa2a2eddb88d9700aa202 (diff)
downloademacs-111a5355b7e050c78a8e9e7a6b781957547f2bde.tar.gz
emacs-111a5355b7e050c78a8e9e7a6b781957547f2bde.zip
(calc): Finish `defgroup' description with period.
(math-format-stack-value): "?\ " -> "?\s".
-rw-r--r--lisp/calc/calc.el8
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)