From: Jay Belanger <jay.p.belanger@gmail.com>
Date: Thu, 29 Jan 2015 03:37:24 +0000 (-0600)
Subject: * lisp/calc/calc-units.el (calc-convert-exact-units): Improve the
X-Git-Tag: emacs-25.0.90~2572^2~28
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4ba343984f1ea2bc87493339a315e13ba1410d28;p=emacs.git

* lisp/calc/calc-units.el (calc-convert-exact-units): Improve the
  simplification.
---

diff --git a/lisp/calc/calc-units.el b/lisp/calc/calc-units.el
index 33cbcac7a2d..f3d02340fe3 100644
--- a/lisp/calc/calc-units.el
+++ b/lisp/calc/calc-units.el
@@ -544,7 +544,7 @@ If COMP or STD is non-nil, put that in the units table instead."
        (let ((res
               (list '* (math-mul (math-remove-units expr)
                                  (math-simplify-units
-                                  (list '/ old-units units)))
+                                  (math-to-standard-units (list '/ old-units units) nil)))
                     units)))
          (calc-enter-result 1 "cvxu" res))))))