Show
Ignore:
Timestamp:
11/26/05 08:33:26 (3 years ago)
Author:
miyoshi
Message:

Sync up with Emacs CVS HEAD.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • vendor/emacs-CVS_HEAD/lisp/calc/calc-units.el

    r3939 r3988  
    912912 
    913913(defun math-convert-units (expr math-cu-new-units &optional math-cu-pure) 
     914  (if (eq (car-safe math-cu-new-units) 'var) 
     915      (let ((unew (assq (nth 1 math-cu-new-units) 
     916                        (math-build-units-table)))) 
     917        (if (eq (car-safe (nth 1 unew)) '+) 
     918            (setq math-cu-new-units (nth 1 unew))))) 
    914919  (math-with-extra-prec 2 
    915920    (let ((compat (and (not math-cu-pure)