(calc-set-mode-line): Use `math-lang-name' to set language name.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 09a3e801ddd79f35b4670fe411ba78b3411556fd..d392c85e212261164a2dde98934e58c1ea294734 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2007-12-11  Jay Belanger  <jay.p.belanger@gmail.com>
+
+       * calc/calc-lang.el (math-lang-name): New property name.
+
+       * calc/calc.el (calc-set-mode-line): Use `math-lang-name'
+       to set language name.
+
 2007-12-10  Yoni Rabkin Katzenell  <yoni-r@actcom.com>  (tiny change)
 
        * file.el (revert-buffer): Eliminate overlays and the mark.

diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el
index 6e12fbe9f5f490fd360ed327a1c4cdc679d2b2a8..fa98b16156732a1c93fe33fc94b8217fad96a4d2 100644 (file)
--- a/lisp/calc/calc.el
+++ b/lisp/calc/calc.el
@@ -1675,8 +1675,8 @@ See calc-keypad for details."
                           (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))
                               " ")))