diff options
| author | John Paul Wallington | 2004-09-18 09:29:35 +0000 |
|---|---|---|
| committer | John Paul Wallington | 2004-09-18 09:29:35 +0000 |
| commit | 91af11b2a39b8d5fa229714449a2ae36c2d32394 (patch) | |
| tree | 1b75322d021601da01a6b946003d39fab118c4f5 | |
| parent | dc711054e2d0fdba8da7fb0c5d3ce7260a8df714 (diff) | |
| download | emacs-91af11b2a39b8d5fa229714449a2ae36c2d32394.tar.gz emacs-91af11b2a39b8d5fa229714449a2ae36c2d32394.zip | |
(calc-quick-units): Fix overzealous s/or/unless.
| -rw-r--r-- | lisp/calc/calc-units.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/calc/calc-units.el b/lisp/calc/calc-units.el index b8735a9dc38..025b208120b 100644 --- a/lisp/calc/calc-units.el +++ b/lisp/calc/calc-units.el | |||
| @@ -297,11 +297,11 @@ Entries are (SYMBOL EXPR DOC-STRING TEMP-TYPE BASE-UNITS).") | |||
| 297 | (units (calc-var-value 'var-Units)) | 297 | (units (calc-var-value 'var-Units)) |
| 298 | (expr (calc-top-n 1))) | 298 | (expr (calc-top-n 1))) |
| 299 | (unless (and (>= num 0) (<= num 9)) | 299 | (unless (and (>= num 0) (<= num 9)) |
| 300 | (errunless "Bad unit number")) | 300 | (error "Bad unit number")) |
| 301 | (unless (math-vectorp units) | 301 | (unless (math-vectorp units) |
| 302 | (errunless "No \"quick units\" are defined")) | 302 | (error "No \"quick units\" are defined")) |
| 303 | (unless (< pos (length units)) | 303 | (unless (< pos (length units)) |
| 304 | (errunless "Unit number %d not defined" pos)) | 304 | (error "Unit number %d not defined" pos)) |
| 305 | (if (math-units-in-expr-p expr nil) | 305 | (if (math-units-in-expr-p expr nil) |
| 306 | (calc-enter-result 1 (format "cun%d" num) | 306 | (calc-enter-result 1 (format "cun%d" num) |
| 307 | (math-convert-units expr (nth pos units))) | 307 | (math-convert-units expr (nth pos units))) |