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

diff --git a/lisp/calc/calc-lang.el b/lisp/calc/calc-lang.el
index 63d24bb76d57459335585a516c251e4f353cc5ac..2e5737349bc068c7ea2c80b36f65c8c2fc67d2aa 100644 (file)
--- 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")