# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1107706899 0
# Node ID 9eb004b49fc983a8daf596a5daf6dcfe30a1ff83
# Parent  ca9f30397adcd8c03c2878235cc35e9085587e10
(calc-tex-language): Display more information in messages.

diff -r ca9f30397adc -r 9eb004b49fc9 lisp/calc/calc-lang.el
--- 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")