[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/calc calc-lang.el
From: |
Jay Belanger |
Subject: |
[Emacs-diffs] emacs/lisp/calc calc-lang.el |
Date: |
Sun, 11 Jan 2009 19:13:16 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Jay Belanger <jpb> 09/01/11 19:13:16
Modified files:
lisp/calc : calc-lang.el
Log message:
(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.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/calc/calc-lang.el?cvsroot=emacs&r1=1.41&r2=1.42
Patches:
Index: calc-lang.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/calc/calc-lang.el,v
retrieving revision 1.41
retrieving revision 1.42
diff -u -b -r1.41 -r1.42
--- calc-lang.el 5 Jan 2009 03:20:01 -0000 1.41
+++ calc-lang.el 11 Jan 2009 19:13:15 -0000 1.42
@@ -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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp/calc calc-lang.el,
Jay Belanger <=