Mercurial > emacs
changeset 59983:d3632c99711e
(calc-write-parse-table-part, calc-fix-token-name): Fix a check for
language type.
| author | Jay Belanger <jay.p.belanger@gmail.com> |
|---|---|
| date | Tue, 08 Feb 2005 05:03:07 +0000 |
| parents | 107c288df93f |
| children | 33e2e86b0fc4 |
| files | lisp/calc/calc-prog.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/calc/calc-prog.el Tue Feb 08 05:02:09 2005 +0000 +++ b/lisp/calc/calc-prog.el Tue Feb 08 05:03:07 2005 +0000 @@ -520,7 +520,7 @@ (cond ((stringp (car p)) (let ((s (car p))) (if (and (string-match "\\`\\\\dots\\>" s) - (not (eq calc-lang '(tex latex)))) + (not (memq calc-lang '(tex latex)))) (setq s (concat ".." (substring s 5)))) (if (or (and (string-match "[a-zA-Z0-9\"{}]\\|\\`:=\\'\\|\\`#\\|\\`%%" s) @@ -587,7 +587,7 @@ "(") ((and (equal name "}") (memq calc-lang '(tex latex eqn))) ")") - ((and (equal name "&") (eq calc-lang '(tex latex))) + ((and (equal name "&") (memq calc-lang '(tex latex))) ",") ((equal name "#") (search-backward "#")