# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1107838987 0
# Node ID d3632c99711e66c94dbbcd8c6cd5f94dee16cc36
# Parent  107c288df93fff651b0a5355af4a4f0be7232c9a
(calc-write-parse-table-part, calc-fix-token-name): Fix a check for
language type.

diff -r 107c288df93f -r d3632c99711e lisp/calc/calc-prog.el
--- a/lisp/calc/calc-prog.el	Tue Feb 08 05:02:09 2005 +0000
+++ b/lisp/calc/calc-prog.el	Tue Feb 08 05:03:07 2005 +0000
@@ -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 "#")