Mercurial > emacs

changeset 59966:9eb004b49fc9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 ca9f30397adc
children f6c20394821d
files lisp/calc/calc-lang.el
diffstat 1 files changed, 14 insertions(+), 5 deletions(-) [+]
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")