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

[Jay Belanger]

Index: emacs/lisp/calc/calc-embed.el
diff -c emacs/lisp/calc/calc-embed.el:1.19 emacs/lisp/calc/calc-embed.el:1.20
*** emacs/lisp/calc/calc-embed.el:1.19  Thu Mar 10 07:14:32 2005
--- emacs/lisp/calc/calc-embed.el       Fri Mar 11 22:19:02 2005
***************
*** 677,694 ****
      (setq calc-embedded-globals (cons t modes))
      (goto-char save-pt)))
  
- (defvar calc-embedded-language-alist
-   '((latex-mode . latex)
-     (tex-mode   . tex)
-     (plain-tex-mode . tex)
-     (context-mode . tex)
-     (nroff-mode . eqn)
-     (pascal-mode . pascal)
-     (c-mode . c)
-     (c++-mode . c)
-     (fortran-mode . fortran)
-     (f90-mode . fortran)))
- 
  (defun calc-embedded-find-modes ()
    (let ((case-fold-search nil)
        (save-pt (point))
--- 677,682 ----
***************
*** 737,743 ****
        (backward-char 6))
      (goto-char save-pt)
      (unless (assq 'the-language modes)
!       (let ((lang (assoc major-mode calc-embedded-language-alist)))
          (if lang
              (setq modes (cons (cons 'the-language (cdr lang))
                                modes)))))
--- 725,731 ----
        (backward-char 6))
      (goto-char save-pt)
      (unless (assq 'the-language modes)
!       (let ((lang (assoc major-mode calc-language-alist)))
          (if lang
              (setq modes (cons (cons 'the-language (cdr lang))
                                modes)))))