# HG changeset patch
# User John Paul Wallington <jpw@pobox.com>
# Date 1095499775 0
# Node ID d8cdadecaba8548052819bf3704a2110a951cb5b
# Parent  b1ba5eae5a50caf584b8d9653b92948b3b9e0399
(calc-quick-units): Fix overzealous s/or/unless.

diff -r b1ba5eae5a50 -r d8cdadecaba8 lisp/calc/calc-units.el
--- 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)))