Function: math-compose-tex-var

math-compose-tex-var is a byte-compiled function defined in calc-lang.el.gz.

Signature

(math-compose-tex-var A PREC)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-lang.el.gz
(defun math-compose-tex-var (a _prec)
  (if (and calc-language-option
           (not (= calc-language-option 0))
           (string-match "\\`[a-zA-Zα-ωΑ-Ω][a-zA-Zα-ωΑ-Ω0-9]+\\'"
                         (symbol-name (nth 1 a))))
      (format (if (eq calc-language 'latex)
                  "\\text{%s}"
                "\\hbox{%s}")
              (symbol-name (nth 1 a)))
    (math-compose-var a)))