Mercurial > emacs

changeset 57130:d8cdadecaba8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(calc-quick-units): Fix overzealous s/or/unless.
author John Paul Wallington <jpw@pobox.com>
date Sat, 18 Sep 2004 09:29:35 +0000
parents b1ba5eae5a50
children f03dfdd4f789
files lisp/calc/calc-units.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calc/calc-units.el	Sat Sep 18 08:14:36 2004 +0000
+++ b/lisp/calc/calc-units.el	Sat Sep 18 09:29:35 2004 +0000
@@ -297,11 +297,11 @@
 	  (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)))