From: Jay Belanger <jay.p.belanger@gmail.com>
Date: Sun, 6 Feb 2005 16:21:39 +0000 (+0000)
Subject: (calc-tex-language): Display more information in messages.
X-Git-Tag: ttn-vms-21-2-B4~2377
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=61983af023a39175bd55f465d00ee9cd4a87ac51;p=emacs.git

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

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