[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/calc/calc-prog.el
From: |
Jay Belanger |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/calc/calc-prog.el |
Date: |
Tue, 08 Feb 2005 00:03:07 -0500 |
Index: emacs/lisp/calc/calc-prog.el
diff -c emacs/lisp/calc/calc-prog.el:1.23 emacs/lisp/calc/calc-prog.el:1.24
*** emacs/lisp/calc/calc-prog.el:1.23 Mon Jan 31 06:28:06 2005
--- emacs/lisp/calc/calc-prog.el Tue Feb 8 05:03:07 2005
***************
*** 520,526 ****
(cond ((stringp (car p))
(let ((s (car p)))
(if (and (string-match "\\`\\\\dots\\>" s)
! (not (eq calc-lang '(tex latex))))
(setq s (concat ".." (substring s 5))))
(if (or (and (string-match
"[a-zA-Z0-9\"{}]\\|\\`:=\\'\\|\\`#\\|\\`%%" s)
--- 520,526 ----
(cond ((stringp (car p))
(let ((s (car p)))
(if (and (string-match "\\`\\\\dots\\>" s)
! (not (memq calc-lang '(tex latex))))
(setq s (concat ".." (substring s 5))))
(if (or (and (string-match
"[a-zA-Z0-9\"{}]\\|\\`:=\\'\\|\\`#\\|\\`%%" s)
***************
*** 587,593 ****
"(")
((and (equal name "}") (memq calc-lang '(tex latex eqn)))
")")
! ((and (equal name "&") (eq calc-lang '(tex latex)))
",")
((equal name "#")
(search-backward "#")
--- 587,593 ----
"(")
((and (equal name "}") (memq calc-lang '(tex latex eqn)))
")")
! ((and (equal name "&") (memq calc-lang '(tex latex)))
",")
((equal name "#")
(search-backward "#")
- [Emacs-diffs] Changes to emacs/lisp/calc/calc-prog.el,
Jay Belanger <=