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

[Jay Belanger]

Index: emacs/lisp/calc/calc-aent.el
diff -c emacs/lisp/calc/calc-aent.el:1.24 emacs/lisp/calc/calc-aent.el:1.25
*** emacs/lisp/calc/calc-aent.el:1.24   Mon Jan 31 21:51:34 2005
--- emacs/lisp/calc/calc-aent.el        Sat Feb 19 19:59:49 2005
***************
*** 784,790 ****
                   math-exp-pos (match-end 0)
                   math-expr-data (math-restore-dashes
                             (math-match-substring math-exp-str 1)))
!            (let ((code (assoc math-expr-data math-tex-ignore-words)))
               (cond ((null code))
                     ((null (cdr code))
                      (math-read-token))
--- 784,791 ----
                   math-exp-pos (match-end 0)
                   math-expr-data (math-restore-dashes
                             (math-match-substring math-exp-str 1)))
!            (let ((code (assoc math-expr-data math-tex-ignore-words))
!                    envname)
               (cond ((null code))
                     ((null (cdr code))
                      (math-read-token))
***************
*** 801,808 ****
                                   (string= envname "bmatrix")
                                   (string= envname "smallmatrix")
                                   (string= envname "pmatrix"))
!                              (if (setq j (string-match (concat "\\\\end{" 
envname "}")
!                                                math-exp-str math-exp-pos))
                                   (setq math-exp-str 
                                         (replace-match "]" t t math-exp-str))
                                 (error "%s" (concat "No closing \\end{" 
envname "}"))))))
--- 802,809 ----
                                   (string= envname "bmatrix")
                                   (string= envname "smallmatrix")
                                   (string= envname "pmatrix"))
!                              (if (string-match (concat "\\\\end{" envname "}")
!                                                math-exp-str math-exp-pos)
                                   (setq math-exp-str 
                                         (replace-match "]" t t math-exp-str))
                                 (error "%s" (concat "No closing \\end{" 
envname "}"))))))