[Emacs-diffs] Changes to emacs/lisp/calc/calc-lang.el

[Jay Belanger]

Index: emacs/lisp/calc/calc-lang.el
diff -c emacs/lisp/calc/calc-lang.el:1.15 emacs/lisp/calc/calc-lang.el:1.16
*** emacs/lisp/calc/calc-lang.el:1.15   Fri Feb  4 06:20:52 2005
--- emacs/lisp/calc/calc-lang.el        Sun Feb  6 16:21:39 2005
***************
*** 291,301 ****
    (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"))))
  
  (defun calc-latex-language (n)
    (interactive "P")
--- 291,310 ----
    (calc-wrapper
     (and n (setq n (prefix-numeric-value n)))
     (calc-set-language 'tex n)
!    (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")