# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1107838929 0
# Node ID 107c288df93fff651b0a5355af4a4f0be7232c9a
# Parent  14a19fb55a5114912bda10fa63772d6641fee36f
(math-compose-expr): Fix a check for language type.

diff -r 14a19fb55a51 -r 107c288df93f lisp/calc/calccomp.el
--- a/lisp/calc/calccomp.el	Mon Feb 07 21:31:56 2005 +0000
+++ b/lisp/calc/calccomp.el	Tue Feb 08 05:02:09 2005 +0000
@@ -908,7 +908,7 @@
 		       (setq func (substring func 0 (- n)))
 		       (while (>= (setq n (1- n)) 0)
 			 (setq func (concat func " prime")))))
-		 (cond ((and (eq calc-language '(tex latex))
+		 (cond ((and (memq calc-language '(tex latex))
 			     (or (> (length a) 2)
 				 (not (math-tex-expr-is-flat (nth 1 a)))))
 			(setq left "\\left( "