From da6b9bf428360100c44c6b48cb5a66a379756699 Mon Sep 17 00:00:00 2001 From: Jay Belanger Date: Tue, 11 Dec 2007 04:07:28 +0000 Subject: [PATCH] (calc-set-mode-line): Use `math-lang-name' to set language name. --- lisp/ChangeLog | 7 +++++++ lisp/calc/calc.el | 4 ++-- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 09a3e801ddd..d392c85e212 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2007-12-11 Jay Belanger + + * 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 (tiny change) * file.el (revert-buffer): Eliminate overlays and the mark. diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el index 6e12fbe9f5f..fa98b161567 100644 --- 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)) " "))) -- 2.39.2