andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(calc): Finish `defgroup' description with period.

Browse source 
(math-format-stack-value): "?\ " -> "?\s".
This commit is contained in:
Juanma Barranquero 2005-07-04 02:39:37 +00:00
parent 59f678fef4
commit 111a5355b7
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/calc/calc.el
View file

@ -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)