diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2007-12-11 04:07:28 +0000 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2007-12-11 04:07:28 +0000 |
| commit | da6b9bf428360100c44c6b48cb5a66a379756699 (patch) | |
| tree | f212b4c26324dabecb6a07ebf40311a20d35a855 /lisp/calc | |
| parent | c65d038099789ce426238e3e22e460da0b43f4ab (diff) | |
| download | emacs-da6b9bf428360100c44c6b48cb5a66a379756699.tar.gz emacs-da6b9bf428360100c44c6b48cb5a66a379756699.tar.bz2 emacs-da6b9bf428360100c44c6b48cb5a66a379756699.zip | |
(calc-set-mode-line): Use `math-lang-name' to set language name.
Diffstat (limited to 'lisp/calc')
| -rw-r--r-- | lisp/calc/calc.el | 4 |
1 files changed, 2 insertions, 2 deletions
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)) " "))) |