[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/calc/calc-aent.el
From: |
Jay Belanger |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/calc/calc-aent.el |
Date: |
Sat, 19 Feb 2005 14:59:50 -0500 |
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 "}"))))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/calc/calc-aent.el,
Jay Belanger <=