[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.21 emacs/lisp/calc/calc-aent.el:1.22
*** emacs/lisp/calc/calc-aent.el:1.21   Mon Jan 31 06:21:31 2005
--- emacs/lisp/calc/calc-aent.el        Mon Jan 31 09:05:27 2005
***************
*** 763,770 ****
                     ((eq (nth 1 code) 'punc)
                      (setq math-exp-token 'punc
                            math-expr-data (nth 2 code)))
!                    ((and (eq (nth 1 code) 'mat)
!                          (string-match " *{" math-exp-str math-exp-pos))
                      (setq math-exp-pos (match-end 0)
                            math-exp-token 'punc
                            math-expr-data "[")
--- 763,784 ----
                     ((eq (nth 1 code) 'punc)
                      (setq math-exp-token 'punc
                            math-expr-data (nth 2 code)))
!                      ((and (eq (nth 1 code) 'begenv)
!                            (string-match " *{\\([^}]*\\)}" math-exp-str 
math-exp-pos))
!                       (setq math-exp-pos (match-end 0)
!                             envname (match-string 1 math-exp-str)
!                             math-exp-token 'punc
!                             math-expr-data "[")
!                       (cond ((or (string= envname "matrix")
!                                  (string= envname "bmatrix")
!                                  (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 "}"))))))
!                       ((and (eq (nth 1 code) 'mat)
!                             (string-match " *{" math-exp-str math-exp-pos))
                      (setq math-exp-pos (match-end 0)
                            math-exp-token 'punc
                            math-expr-data "[")