[Emacs-diffs] Changes to emacs/lisp/calc/calc-prog.el

[Jay Belanger]

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 "#")