# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1107152979 0
# Node ID eae40eb7229ea3bf4134313aa12dbc69ac37435c
# Parent  fb44bc67721e71f7ad6d89002500996b256f3e54
(calc-language): Adjust docstring.
(calc-set-mode-line): Add LaTeX support.
(math-expr-special-function-mapping): New variable.

diff -r fb44bc67721e -r eae40eb7229e lisp/calc/calc.el
--- a/lisp/calc/calc.el	Mon Jan 31 06:28:06 2005 +0000
+++ b/lisp/calc/calc.el	Mon Jan 31 06:29:39 2005 +0000
@@ -405,6 +405,7 @@
   pascal	Use Pascal language notation.
   fortran	Use Fortran language notation.
   tex		Use TeX notation.
+  latex         Use LaTeX notation.
   eqn		Use eqn notation.
   math		Use Mathematica(tm) notation.
   maple		Use Maple notation.")
@@ -704,6 +705,7 @@
 (defvar math-eval-rules-cache-tag t)
 (defvar math-radix-explicit-format t)
 (defvar math-expr-function-mapping nil)
+(defvar math-expr-special-function-mapping nil)
 (defvar math-expr-variable-mapping nil)
 (defvar math-read-expr-quotes nil)
 (defvar math-working-step nil)
@@ -1368,6 +1370,7 @@
 		     (if calc-leading-zeros "Zero " "")
 		     (cond ((null calc-language) "")
 			   ((eq calc-language 'tex) "TeX ")
+			   ((eq calc-language 'latex) "LaTeX ")
 			   (t (concat
 			       (capitalize (symbol-name calc-language))
 			       " ")))