[Emacs-diffs] Changes to emacs/lisp/calc/calc-units.el

[Jay Belanger]

Index: emacs/lisp/calc/calc-units.el
diff -c emacs/lisp/calc/calc-units.el:1.20 emacs/lisp/calc/calc-units.el:1.21
*** emacs/lisp/calc/calc-units.el:1.20  Wed Oct 19 20:16:14 2005
--- emacs/lisp/calc/calc-units.el       Wed Nov  9 06:01:16 2005
***************
*** 911,916 ****
--- 911,921 ----
  (defvar math-cu-pure)
  
  (defun math-convert-units (expr math-cu-new-units &optional math-cu-pure)
+   (if (eq (car-safe math-cu-new-units) 'var)
+       (let ((unew (assq (nth 1 math-cu-new-units)
+                         (math-build-units-table))))
+         (if (eq (car-safe (nth 1 unew)) '+)
+             (setq math-cu-new-units (nth 1 unew)))))
    (math-with-extra-prec 2
      (let ((compat (and (not math-cu-pure) 
                         (math-find-compatible-unit expr math-cu-new-units)))