/[emacs]/emacs/lisp/calc/calc-arith.el
ViewVC logotype

Diff of /emacs/lisp/calc/calc-arith.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.17 by jpb, Mon Oct 10 19:37:33 2005 UTC revision 1.18 by jpb, Mon Oct 10 19:59:18 2005 UTC
# Line 383  Line 383 
383             (cond             (cond
384              ((memq 'sqmatrix (nth 1 decl))              ((memq 'sqmatrix (nth 1 decl))
385               t)               t)
             ((memq 'matrix (nth 1 decl))  
              nil)  
386              ((and (eq (car a) 'var)              ((and (eq (car a) 'var)
387                    (boundp (nth 2 a))                    (boundp (nth 2 a))
388                    (setq val (symbol-value (nth 2 a))))                    (setq val (symbol-value (nth 2 a))))
# Line 394  Line 392 
392                     (eq calc-matrix-mode 'sqmatrix))                     (eq calc-matrix-mode 'sqmatrix))
393                    (eq (car-safe a) 'var))                    (eq (car-safe a) 'var))
394               t)               t)
395                ((memq 'matrix (nth 1 decl))
396                 nil)
397              (t              (t
398               nil))))))               nil))))))
399    

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26