# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1110579542 0
# Node ID ddc2516ce1ecfc299b7152f0feec476c48523ac1
# Parent  a91fcdcbdd698a116a6e7730e0ec6e15f5563876
(calc-embedded-language-alist): Remove.
(calc-embedded-find-modes): Use calc-language-alist instead of
calc-embedded-language-alist.

diff -r a91fcdcbdd69 -r ddc2516ce1ec lisp/calc/calc-embed.el
--- a/lisp/calc/calc-embed.el	Fri Mar 11 22:18:42 2005 +0000
+++ b/lisp/calc/calc-embed.el	Fri Mar 11 22:19:02 2005 +0000
@@ -677,18 +677,6 @@
     (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))
@@ -737,7 +725,7 @@
       (backward-char 6))
     (goto-char save-pt)
     (unless (assq 'the-language modes)
-      (let ((lang (assoc major-mode calc-embedded-language-alist)))
+      (let ((lang (assoc major-mode calc-language-alist)))
         (if lang
             (setq modes (cons (cons 'the-language (cdr lang))
                               modes)))))