diff options
| author | Jay Belanger | 2012-05-18 22:11:09 -0500 |
|---|---|---|
| committer | Jay Belanger | 2012-05-18 22:11:09 -0500 |
| commit | 6b38973b8ed8616f9f75e4b415ea9c53c34d40d2 (patch) | |
| tree | 5ba2fcdb5ca9a5924b9bda6e2adf2cb907e2e3d8 | |
| parent | cd3466e6a5c3200dd7aaca05c3235cdb71bd61c7 (diff) | |
| download | emacs-6b38973b8ed8616f9f75e4b415ea9c53c34d40d2.tar.gz emacs-6b38973b8ed8616f9f75e4b415ea9c53c34d40d2.zip | |
* calc/calc-units.el (calc-quick-units): Use the proper units expression.
| -rw-r--r-- | lisp/calc/calc-units.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/calc/calc-units.el b/lisp/calc/calc-units.el index ffcba17f530..6d876cf79ba 100644 --- a/lisp/calc/calc-units.el +++ b/lisp/calc/calc-units.el | |||
| @@ -374,7 +374,7 @@ Entries are (SYMBOL EXPR DOC-STRING TEMP-TYPE BASE-UNITS).") | |||
| 374 | (if (math-units-in-expr-p expr nil) | 374 | (if (math-units-in-expr-p expr nil) |
| 375 | (progn | 375 | (progn |
| 376 | (if calc-ensure-consistent-units | 376 | (if calc-ensure-consistent-units |
| 377 | (math-check-unit-consistency expr units)) | 377 | (math-check-unit-consistency expr (nth pos units))) |
| 378 | (calc-enter-result 1 (format "cun%d" num) | 378 | (calc-enter-result 1 (format "cun%d" num) |
| 379 | (math-convert-units expr (nth pos units)))) | 379 | (math-convert-units expr (nth pos units)))) |
| 380 | (calc-enter-result 1 (format "*un%d" num) | 380 | (calc-enter-result 1 (format "*un%d" num) |