(calc-write-parse-table-part, calc-fix-token-name): Fix a check for

language type.

diff --git a/lisp/calc/calc-prog.el b/lisp/calc/calc-prog.el
index d5d9123d04d7f2873eb421ddb5bf1653afa01ff7..640fa5b665cfe1e3197cfe5975e97d6cb1abbb83 100644 (file)
--- a/lisp/calc/calc-prog.el
+++ b/lisp/calc/calc-prog.el
@@ -520,7 +520,7 @@
     (cond ((stringp (car p))
           (let ((s (car p)))
             (if (and (string-match "\\`\\\\dots\\>" s)
-                     (not (eq calc-lang '(tex latex))))
+                     (not (memq calc-lang '(tex latex))))
                 (setq s (concat ".." (substring s 5))))
             (if (or (and (string-match
                           "[a-zA-Z0-9\"{}]\\|\\`:=\\'\\|\\`#\\|\\`%%" s)
@@ -587,7 +587,7 @@
         "(")
        ((and (equal name "}") (memq calc-lang '(tex latex eqn)))
         ")")
-       ((and (equal name "&") (eq calc-lang '(tex latex)))
+       ((and (equal name "&") (memq calc-lang '(tex latex)))
         ",")
        ((equal name "#")
         (search-backward "#")