Mercurial > emacs
diff lisp/calc/calc-lang.el @ 59966:9eb004b49fc9
(calc-tex-language): Display more information in messages.
author | Jay Belanger <jay.p.belanger@gmail.com> |
---|---|
date | Sun, 06 Feb 2005 16:21:39 +0000 |
parents | 937e422a1694 |
children | 803f4b2d0113 3ebd9bdb4fe5 |
line wrap: on
line diff
--- a/lisp/calc/calc-lang.el Sun Feb 06 16:20:46 2005 +0000 +++ b/lisp/calc/calc-lang.el Sun Feb 06 16:21:39 2005 +0000 @@ -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")