(math-add-symb-fancy): Check the length of the correct variable.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d84868c746cbd2356e2503b930735305c706bff7..d8beecfd4a0b215f8c868b15aa0b8c4e3e23f80a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -3,6 +3,9 @@
        * calc/calcalg2.el (calc-sum-rec): Fix the sum when the lower
        limit is 0.
 
+       * calc/calc-arith.el (math-add-symb-fancy): Check the length of
+       the correct variable.
+
 2006-01-20  Carsten Dominik  <dominik@science.uva.nl>
 
        * textmodes/org.el: (org-open-at-point): Fixed bug with matching a

diff --git a/lisp/calc/calc-arith.el b/lisp/calc/calc-arith.el
index dc341cb7aec00254bb12d2e20e3e6cf875bd174a..64e0b4b7d10b26d19c4be567a479568a04c3a01a 100644 (file)
--- a/lisp/calc/calc-arith.el
+++ b/lisp/calc/calc-arith.el
@@ -1201,7 +1201,7 @@
               (and (math-known-scalarp b)
                    (math-add (nth 1 a) b))))
       (and (eq (car-safe b) 'calcFunc-idn)
-          (= (length a) 2)
+          (= (length b) 2)
           (or (and (math-square-matrixp a)
                    (math-add a (math-mimic-ident (nth 1 b) a)))
               (and (math-known-scalarp a)