# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1107208369 0
# Node ID 2f3d955df59a21b9c696150b1048164502b733ce
# Parent  c329c97b84e62afec3efe6d31c69e64649b7f925
(math-read-big-expr): Make LaTeX the default TeX mode.

diff -r c329c97b84e6 -r 2f3d955df59a lisp/calc/calc-ext.el
--- a/lisp/calc/calc-ext.el	Mon Jan 31 21:52:11 2005 +0000
+++ b/lisp/calc/calc-ext.el	Mon Jan 31 21:52:49 2005 +0000
@@ -2947,13 +2947,13 @@
        (setq str (concat (substring str 0 (match-beginning 0))
 			 (substring str (match-end 0)))))
   (if (string-match "\\\\[^ \n|]" str)
-      (if (eq calc-language 'tex)
+      (if (eq calc-language 'latex)
 	  (math-read-expr str)
-	(let ((calc-language 'tex)
+	(let ((calc-language 'latex)
 	      (calc-language-option nil)
-	      (math-expr-opers (get 'tex 'math-oper-table))
-	      (math-expr-function-mapping (get 'tex 'math-function-table))
-	      (math-expr-variable-mapping (get 'tex 'math-variable-table)))
+	      (math-expr-opers (get 'latex 'math-oper-table))
+	      (math-expr-function-mapping (get 'latex 'math-function-table))
+	      (math-expr-variable-mapping (get 'latex 'math-variable-table)))
 	  (math-read-expr str)))
     (let ((math-read-big-lines nil)
 	  (pos 0)