[Emacs-diffs] Changes to emacs/lisp/calc/calc-lang.el

[Jay Belanger]

Index: emacs/lisp/calc/calc-lang.el
diff -c emacs/lisp/calc/calc-lang.el:1.12 emacs/lisp/calc/calc-lang.el:1.13
*** emacs/lisp/calc/calc-lang.el:1.12   Mon Jan 31 06:25:17 2005
--- emacs/lisp/calc/calc-lang.el        Mon Jan 31 09:08:34 2005
***************
*** 557,578 ****
                 (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)
  
  (defun calc-eqn-language (n)
    (interactive "P")
--- 557,563 ----
                 (math-compose-expr (nth 2 a) -1)
                 "}"))
  
! (put 'latex 'math-input-filter 'math-tex-input-filter)
  
  (defun calc-eqn-language (n)
    (interactive "P")