diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2015-01-28 21:29:58 -0600 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2015-01-28 21:29:58 -0600 |
| commit | 43fdb2a08061afba00243b164111c289d711d976 (patch) | |
| tree | 3275f3d23a5cb6ed24eaaeeb692793c819f6014a /lisp/calc | |
| parent | d1cb2f785525ad717a1504f4762505086b390bad (diff) | |
| download | emacs-43fdb2a08061afba00243b164111c289d711d976.tar.gz emacs-43fdb2a08061afba00243b164111c289d711d976.tar.bz2 emacs-43fdb2a08061afba00243b164111c289d711d976.zip | |
* lisp/calc/calc-units.el (math-consistent-units-p): Strengthen the
test for consistent units.
Diffstat (limited to 'lisp/calc')
| -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 8442cf9ff25..33cbcac7a2d 100644 --- a/lisp/calc/calc-units.el +++ b/lisp/calc/calc-units.el @@ -979,7 +979,7 @@ If COMP or STD is non-nil, put that in the units table instead." (or (and (eq (car-safe newunits) 'var) (assq (nth 1 newunits) math-standard-units-systems)) - (math-numberp (math-get-units (list '/ expr newunits))))) + (math-numberp (math-get-units (math-to-standard-units (list '/ expr newunits) nil))))) (defun math-check-unit-consistency (expr units) "Give an error if EXPR and UNITS do not have consistent units." |