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-arith.el

    r3939 r3988  
    375375        ((eq (car-safe a) '^) 
    376376         (math-check-known-square-matrixp (nth 1 a))) 
     377        ((or 
     378          (eq (car-safe a) '*) 
     379          (eq (car-safe a) '+) 
     380          (eq (car-safe a) '-)) 
     381         (and 
     382          (math-check-known-square-matrixp (nth 1 a)) 
     383          (math-check-known-square-matrixp (nth 2 a)))) 
    377384        (t 
    378385         (let ((decl (if (eq (car a) 'var) 
    …… 
    18481855      (list '/ a b))) 
    18491856 
     1857;;; Division from the left. 
     1858(defun calcFunc-ldiv (a b) 
     1859  (if (math-known-scalarp a) 
     1860      (math-div b a) 
     1861    (math-mul (math-pow a -1) b))) 
    18501862 
    18511863(defun calcFunc-mod (a b) 
    …… 
    19611973                           (math-known-square-matrixp (nth 1 a)) 
    19621974                           (math-known-square-matrixp (nth 2 a))) 
    1963                       (list '* (list '^ (nth 2 a) -1) (list '^ (nth 1 a) -1)) 
     1975                      (math-mul (math-pow-fancy (nth 2 a) -1)  
     1976                                (math-pow-fancy (nth 1 a) -1)) 
    19641977                    (list '^ a b))) 
    19651978                 ((and (eq (car-safe a) '*)