diff options
author | Jay Belanger <jay.p.belanger@gmail.com> | 2013-03-07 20:11:25 -0600 |
---|---|---|
committer | Jay Belanger <jay.p.belanger@gmail.com> | 2013-03-07 20:11:25 -0600 |
commit | 6d7ebb726dd39b5e5e9f12e0341a4bb350caf637 (patch) | |
tree | ddf2c9be5cf92e827f04016ee61c926fbe7588d3 /lisp/calc/calc-units.el | |
parent | 36075a19b2d37e38e8258dff2f774a2a3702dc55 (diff) | |
download | emacs-6d7ebb726dd39b5e5e9f12e0341a4bb350caf637.tar.gz |
* doc/misc/calc.texi (Basic Operations on Units): Fix
cross-reference.
* calc/calc-units.el (calc-convert-units): Fix the way that default
new units are stored.
Diffstat (limited to 'lisp/calc/calc-units.el')
-rw-r--r-- | lisp/calc/calc-units.el | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/lisp/calc/calc-units.el b/lisp/calc/calc-units.el index b334d7b3b45..335980af4dd 100644 --- a/lisp/calc/calc-units.el +++ b/lisp/calc/calc-units.el @@ -503,11 +503,13 @@ If COMP or STD is non-nil, put that in the units table instead." (comp (eq (car-safe units) '+))) (unless (or unew std) (error "No units specified")) - (let ((res - (if std - (math-simplify-units (math-to-standard-units expr (nth 1 std))) - (math-convert-units expr units (and uoldname (not (equal uoldname "1"))))))) - (math-put-default-units res (if comp units)) + (let* ((noold (and uoldname (not (equal uoldname "1")))) + (res + (if std + (math-simplify-units (math-to-standard-units expr (nth 1 std))) + (math-convert-units expr units noold)))) + (unless std + (math-put-default-units (if noold units res) (if comp units))) (calc-enter-result 1 "cvun" res)))))) (defun calc-autorange-units (arg) |