diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2005-01-31 09:08:34 +0000 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2005-01-31 09:08:34 +0000 |
| commit | cfa083161b51d2ebfc65f2d6a9e2440af44accff (patch) | |
| tree | 65db8be297ffaecca910d57146ab31fb45145dce /lisp | |
| parent | dacc4c70c4ace1f2381cab1f0ac1e5c5fae32038 (diff) | |
| download | emacs-cfa083161b51d2ebfc65f2d6a9e2440af44accff.tar.gz emacs-cfa083161b51d2ebfc65f2d6a9e2440af44accff.tar.bz2 emacs-cfa083161b51d2ebfc65f2d6a9e2440af44accff.zip | |
(math-latex-input-filter): Remove function.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/calc/calc-lang.el | 17 |
1 files changed, 1 insertions, 16 deletions
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") |