# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1197345952 0
# Node ID e26cf770952cebec23f3d393351e1b11df34fcb0
# Parent  e9cba8ba37e1098c8bb26350214ffc18818d8ee7
(calc-set-mode-line): Use `math-lang-name' to set language name.

diff -r e9cba8ba37e1 -r e26cf770952c lisp/calc/calc.el
--- a/lisp/calc/calc.el	Tue Dec 11 04:04:26 2007 +0000
+++ b/lisp/calc/calc.el	Tue Dec 11 04:05:52 2007 +0000
@@ -1675,8 +1675,8 @@
 			   (t (format "Radix%d " calc-number-radix)))
 		     (if calc-leading-zeros "Zero " "")
 		     (cond ((null calc-language) "")
-			   ((eq calc-language 'tex) "TeX ")
-			   ((eq calc-language 'latex) "LaTeX ")
+                           ((get calc-language 'math-lang-name)
+                            (concat (get calc-language 'math-lang-name) " "))
 			   (t (concat
 			       (capitalize (symbol-name calc-language))
 			       " ")))