/[emacs]/emacs/lisp/calc/calc-lang.el
ViewVC logotype

Diff of /emacs/lisp/calc/calc-lang.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.12 by jpb, Mon Jan 31 06:25:17 2005 UTC revision 1.13 by jpb, Mon Jan 31 09:08:34 2005 UTC
# Line 557  Line 557 
557                 (math-compose-expr (nth 2 a) -1)                 (math-compose-expr (nth 2 a) -1)
558                 "}"))                 "}"))
559    
560  (defun math-latex-input-filter (str)   ; allow parsing of 123\,456\,789.  (put 'latex 'math-input-filter 'math-tex-input-filter)
   (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)  
561    
562  (defun calc-eqn-language (n)  (defun calc-eqn-language (n)
563    (interactive "P")    (interactive "P")

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26