From: Jay Belanger <jay.p.belanger@gmail.com>
Date: Tue, 8 Feb 2005 05:03:07 +0000 (+0000)
Subject: (calc-write-parse-table-part, calc-fix-token-name): Fix a check for
X-Git-Tag: ttn-vms-21-2-B4~2360
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=72586450961a850c79767d2c88fe2810084e9c88;p=emacs.git

(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 d5d9123d04d..640fa5b665c 100644
--- 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 "#")