(math-compose-tex-sqrt): New function (previously commented out).

(math-special-function-table): Use `math-compose-tex-sqrt' to compose
sqrts in TeX and LaTeX mode.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index edcea7dc113382badf42778982554511092cc4f6..c337e97aaa60ea7360614da28ec9128871e6435c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2009-01-11  Jay Belanger  <jay.p.belanger@gmail.com>
+
+       * calc/calc-lang.el (math-compose-tex-sqrt): New function.
+       (math-special-function-table): Use `math-compose-tex-sqrt' to
+       compose sqrts in TeX and LaTeX mode.
+
 2009-01-11  Chong Yidong  <cyd@stupidchicken.com>
 
        * faces.el (describe-face): Ignore anonymous faces.

diff --git a/lisp/calc/calc-lang.el b/lisp/calc/calc-lang.el
index 59a11c42b7f58b8e49d01c4a145c902bd3b8edfa..1bf5ff6c484ca1a9828057aaf78400d7f4da6410 100644 (file)
--- a/lisp/calc/calc-lang.el
+++ b/lisp/calc/calc-lang.el
@@ -494,6 +494,7 @@
 (put 'tex 'math-special-function-table
      '((calcFunc-sum . (math-compose-tex-sum "\\sum"))
        (calcFunc-prod . (math-compose-tex-sum "\\prod"))
+       (calcFunc-sqrt . math-compose-tex-sqrt)
        (intv . math-compose-tex-intv)))
 
 (put 'tex 'math-variable-table
@@ -673,11 +674,11 @@
                      (substring str (1- (match-end 0))))))
   str)
 
-;(defun math-tex-print-sqrt (a)
-;  (list 'horiz
-;        "\\sqrt{"
-;        (math-compose-expr (nth 1 a) 0)
-;        "}"))
+(defun math-compose-tex-sqrt (a)
+  (list 'horiz
+        "\\sqrt{"
+        (math-compose-expr (nth 1 a) 0)
+        "}"))
 
 (defun math-compose-tex-intv (a)
   (list 'horiz
@@ -782,6 +783,7 @@
        (calcFunc-choose . (math-compose-latex-frac "\\binom"))
        (calcFunc-sum . (math-compose-tex-sum "\\sum"))
        (calcFunc-prod . (math-compose-tex-sum "\\prod"))
+       (calcFunc-sqrt . math-compose-tex-sqrt)
        (intv          . math-compose-tex-intv)))
 
 (put 'latex 'math-variable-table