Mercurial > emacs

changeset 64027:ba3f24a57b73

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 f0f7996ea325
children 26cc453cc38d
files lisp/calc/calc.el
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
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)