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

[Jay Belanger]

Index: emacs/lisp/calc/calc-ext.el
diff -c emacs/lisp/calc/calc-ext.el:1.37 emacs/lisp/calc/calc-ext.el:1.38
*** emacs/lisp/calc/calc-ext.el:1.37    Mon Jan 31 06:23:04 2005
--- emacs/lisp/calc/calc-ext.el Mon Jan 31 21:52:49 2005
***************
*** 2947,2959 ****
         (setq str (concat (substring str 0 (match-beginning 0))
                         (substring str (match-end 0)))))
    (if (string-match "\\\\[^ \n|]" str)
!       (if (eq calc-language 'tex)
          (math-read-expr str)
!       (let ((calc-language 'tex)
              (calc-language-option nil)
!             (math-expr-opers (get 'tex 'math-oper-table))
!             (math-expr-function-mapping (get 'tex 'math-function-table))
!             (math-expr-variable-mapping (get 'tex 'math-variable-table)))
          (math-read-expr str)))
      (let ((math-read-big-lines nil)
          (pos 0)
--- 2947,2959 ----
         (setq str (concat (substring str 0 (match-beginning 0))
                         (substring str (match-end 0)))))
    (if (string-match "\\\\[^ \n|]" str)
!       (if (eq calc-language 'latex)
          (math-read-expr str)
!       (let ((calc-language 'latex)
              (calc-language-option nil)
!             (math-expr-opers (get 'latex 'math-oper-table))
!             (math-expr-function-mapping (get 'latex 'math-function-table))
!             (math-expr-variable-mapping (get 'latex 'math-variable-table)))
          (math-read-expr str)))
      (let ((math-read-big-lines nil)
          (pos 0)