From: Jay Belanger <jay.p.belanger@gmail.com>
Date: Mon, 31 Jan 2005 09:08:34 +0000 (+0000)
Subject: (math-latex-input-filter): Remove function.
X-Git-Tag: ttn-vms-21-2-B4~2509
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cfa083161b51d2ebfc65f2d6a9e2440af44accff;p=emacs.git

(math-latex-input-filter): Remove function.
---

diff --git a/lisp/calc/calc-lang.el b/lisp/calc/calc-lang.el
index c691e2bcc2b..48612f4cfd5 100644
--- a/lisp/calc/calc-lang.el
+++ b/lisp/calc/calc-lang.el
@@ -557,22 +557,7 @@
                (math-compose-expr (nth 2 a) -1)
                "}"))
 
-(defun math-latex-input-filter (str)   ; allow parsing of 123\,456\,789.
-  (while (string-match "[0-9]\\\\,[0-9]" str)
-    (setq str (concat (substring str 0 (1+ (match-beginning 0)))
-		      (substring str (1- (match-end 0))))))
-  (while (string-match "\\\\begin{\\(small\\|[bp]\\)?matrix}" str)
-    (setq str (concat (substring str 0 (match-beginning 0))
-                      "\\matrix{"
-		      (substring str (match-end 0)))))
-  (while (string-match "\\\\end{\\(small\\|[bp]\\)?matrix}" str)
-    (setq str (concat (substring str 0 (match-beginning 0))
-                      "}"
-		      (substring str (match-end 0)))))
-
-  str)
-
-(put 'latex 'math-input-filter 'math-latex-input-filter)
+(put 'latex 'math-input-filter 'math-tex-input-filter)
 
 (defun calc-eqn-language (n)
   (interactive "P")