From: Jay Belanger <jay.p.belanger@gmail.com>
Date: Mon, 13 Feb 2006 21:36:51 +0000 (+0000)
Subject: (math-check-known-matrixp): Make sure expression is a symbol before
X-Git-Tag: emacs-pretest-22.0.90~4162
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c3a1b86139af2a446a09d40b28c123931dea6266;p=emacs.git

(math-check-known-matrixp): Make sure expression is a symbol before
checking that it is bound.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3f20cbefd89..e1166bbd2e5 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-02-13  Jay Belanger  <belanger@truman.edu>
+
+	* calc/calc-arith.el:  (math-check-known-matrixp): Make sure
+	expression is a symbol before checking that it is bound.
+
 2006-02-13  Richard M. Stallman  <rms@gnu.org>
 
 	* mouse.el (mouse-drag-mode-line-1): Use mouse-drag-move-window-bottom
diff --git a/lisp/calc/calc-arith.el b/lisp/calc/calc-arith.el
index 2372b0ebbfb..a5f25e2464e 100644
--- a/lisp/calc/calc-arith.el
+++ b/lisp/calc/calc-arith.el
@@ -362,6 +362,7 @@
             ((memq 'matrix (nth 1 decl))
              t)
             ((and (eq (car a) 'var)
+                  (symbolp (nth 2 a))
                   (boundp (nth 2 a))
                   (setq val (symbol-value (nth 2 a))))
              (math-check-known-matrixp val))