mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases Activity

(calc-tex-language): Display more information in messages.

Browse Source
This commit is contained in:
Jay Belanger 2005-02-06 16:21:39 +00:00
parent 53cf64fd65
commit 61983af023
1 changed files with 14 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lisp/calc/calc-lang.el
View File

@ -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")