mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-15 17:00:26 +00:00
Code Issues Releases Activity

* calc/calc-units.el (math-consistent-units-p): Accept unit systems

Browse Source 
as consistent units.
This commit is contained in:
Jay Belanger 2012-05-19 09:59:47 -05:00
parent 21a8caaa4a
commit 76bc2ec7dc
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/calc/calc-units.el
View File

@ -921,9 +921,12 @@ If EXPR is nil, return nil."
(math-single-units-in-expr-p (nth 1 expr))))
(t 'wrong)))
(defun math-consistent-units-p (expr1 expr2)
"Non-nil if EXPR1 and EXPR2 have consistent units."
(math-numberp (math-get-units (list '/ expr1 expr2))))
(defun math-consistent-units-p (expr newunits)
"Non-nil if EXPR and NEWUNITS have consistent units."
(or
(and (eq (car-safe newunits) 'var)
(assq (nth 1 newunits) math-standard-units-systems))
(math-numberp (math-get-units (list '/ expr newunits)))))
(defun math-check-unit-consistency (expr units)
"Give an error if EXPR and UNITS do not have consistent units."