From: Jay Belanger <jay.p.belanger@gmail.com>
Date: Mon, 31 Jan 2005 21:52:49 +0000 (+0000)
Subject: (math-read-big-expr): Make LaTeX the default TeX mode.
X-Git-Tag: ttn-vms-21-2-B4~2501
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=86e3afd3bda5847cc131caa084115bec7d4063ae;p=emacs.git

(math-read-big-expr): Make LaTeX the default TeX mode.
---

diff --git a/lisp/calc/calc-ext.el b/lisp/calc/calc-ext.el
index 9a79032b8db..374e89ec1f1 100644
--- a/lisp/calc/calc-ext.el
+++ b/lisp/calc/calc-ext.el
@@ -2947,13 +2947,13 @@ calc-kill calc-kill-region calc-yank))))
        (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)