From: Jay Belanger <jay.p.belanger@gmail.com>
Date: Sat, 19 May 2012 03:11:09 +0000 (-0500)
Subject: * calc/calc-units.el (calc-quick-units):  Use the proper units expression.
X-Git-Tag: emacs-24.2.90~471^2~14
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6b38973b8ed8616f9f75e4b415ea9c53c34d40d2;p=emacs.git

* calc/calc-units.el (calc-quick-units):  Use the proper units expression.
---

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).")
      (if (math-units-in-expr-p expr nil)
          (progn
            (if calc-ensure-consistent-units
-               (math-check-unit-consistency expr units))
+               (math-check-unit-consistency expr (nth pos units)))
            (calc-enter-result 1 (format "cun%d" num)
                               (math-convert-units expr (nth pos units))))
        (calc-enter-result 1 (format "*un%d" num)