diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2005-02-08 05:03:07 +0000 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2005-02-08 05:03:07 +0000 |
| commit | 72586450961a850c79767d2c88fe2810084e9c88 (patch) | |
| tree | ce4eab472ee28832dd9bdc00082b66282454792f /lisp/calc/calc-prog.el | |
| parent | 1867200e4547380c24badc29dd0d88cbbd301a16 (diff) | |
| download | emacs-72586450961a850c79767d2c88fe2810084e9c88.tar.gz | |
(calc-write-parse-table-part, calc-fix-token-name): Fix a check for
language type.
Diffstat (limited to 'lisp/calc/calc-prog.el')
| -rw-r--r-- | lisp/calc/calc-prog.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/calc/calc-prog.el b/lisp/calc/calc-prog.el index d5d9123d04d..640fa5b665c 100644 --- a/lisp/calc/calc-prog.el +++ b/lisp/calc/calc-prog.el @@ -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 "#") |