diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2005-02-06 16:21:39 +0000 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2005-02-06 16:21:39 +0000 |
| commit | 61983af023a39175bd55f465d00ee9cd4a87ac51 (patch) | |
| tree | dc8bf8260c5bae646603d0e7e7ab28c071d4a497 | |
| parent | 53cf64fd65d06e21b6510a39ceb3c2f2c853d1a7 (diff) | |
| download | emacs-61983af023a39175bd55f465d00ee9cd4a87ac51.tar.gz | |
(calc-tex-language): Display more information in messages.
| -rw-r--r-- | lisp/calc/calc-lang.el | 19 |
1 files changed, 14 insertions, 5 deletions
diff --git a/lisp/calc/calc-lang.el b/lisp/calc/calc-lang.el index 63d24bb76d5..2e5737349bc 100644 --- a/lisp/calc/calc-lang.el +++ b/lisp/calc/calc-lang.el @@ -291,11 +291,20 @@ (calc-wrapper (and n (setq n (prefix-numeric-value n))) (calc-set-language 'tex n) - (message (if (and n (/= n 0)) - (if (> n 0) - "TeX language mode with \\hbox{func}(\\hbox{var})" - "TeX language mode with \\func{\\hbox{var}}") - "TeX language mode")))) + (cond ((not n) + (message "TeX language mode")) + ((= n 0) + (message "TeX language mode with multiline matrices")) + ((= n 1) + (message "TeX language mode with \\hbox{func}(\\hbox{var})")) + ((> n 1) + (message + "TeX language mode with \\hbox{func}(\\hbox{var}) and multiline matrices")) + ((= n -1) + (message "TeX language mode with \\func(\\hbox{var})")) + ((< n -1) + (message + "TeX language mode with \\func(\\hbox{var}) and multiline matrices"))))) (defun calc-latex-language (n) (interactive "P") |