(math-read-token): Check for smallmatrix environment.

diff --git a/lisp/calc/calc-aent.el b/lisp/calc/calc-aent.el
index 49aae82a950665005112f134794a07812688836e..2b0cf9a004a74f12ffff8207fc7672630c54559a 100644 (file)
--- a/lisp/calc/calc-aent.el
+++ b/lisp/calc/calc-aent.el
@@ -771,6 +771,7 @@ in Calc algebraic input.")
                             math-expr-data "[")
                       (cond ((or (string= envname "matrix")
                                  (string= envname "bmatrix")
+                                 (string= envname "smallmatrix")
                                  (string= envname "pmatrix"))
                              (if (setq j (string-match (concat "\\\\end{" envname "}")
                                                math-exp-str math-exp-pos))