diff options
| author | Jay Belanger <[email protected]> | 2007-12-11 04:07:28 +0000 |
|---|---|---|
| committer | Jay Belanger <[email protected]> | 2007-12-11 04:07:28 +0000 |
| commit | da6b9bf428360100c44c6b48cb5a66a379756699 (patch) | |
| tree | f212b4c26324dabecb6a07ebf40311a20d35a855 | |
| parent | c65d038099789ce426238e3e22e460da0b43f4ab (diff) | |
(calc-set-mode-line): Use `math-lang-name' to set language name.
| -rw-r--r-- | lisp/ChangeLog | 7 | ||||
| -rw-r--r-- | lisp/calc/calc.el | 4 |
2 files changed, 9 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 09a3e801dd..d392c85e21 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2007-12-11 Jay Belanger <[email protected]> + + * 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 <[email protected]> (tiny change) * file.el (revert-buffer): Eliminate overlays and the mark. diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el index 6e12fbe9f5..fa98b16156 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)) " "))) |