procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(calc-quick-units): Fix overzealous s/or/unless.

Browse source
This commit is contained in:
John Paul Wallington 2004-09-18 09:29:35 +00:00
parent dc711054e2
commit 91af11b2a3
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/calc/calc-units.el
View file

@ -297,11 +297,11 @@ Entries are (SYMBOL EXPR DOC-STRING TEMP-TYPE BASE-UNITS).")
(units (calc-var-value 'var-Units))
(expr (calc-top-n 1)))
(unless (and (>= num 0) (<= num 9))
(errunless "Bad unit number"))
(error "Bad unit number"))
(unless (math-vectorp units)
(errunless "No \"quick units\" are defined"))
(error "No \"quick units\" are defined"))
(unless (< pos (length units))
(errunless "Unit number %d not defined" pos))
(error "Unit number %d not defined" pos))
(if (math-units-in-expr-p expr nil)
(calc-enter-result 1 (format "cun%d" num)
(math-convert-units expr (nth pos units)))