Mercurial > emacs

changeset 60570:ddc2516ce1ec

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(calc-embedded-language-alist): Remove. (calc-embedded-find-modes): Use calc-language-alist instead of calc-embedded-language-alist.
author Jay Belanger <jay.p.belanger@gmail.com>
date Fri, 11 Mar 2005 22:19:02 +0000
parents a91fcdcbdd69
children 999e917606e9
files lisp/calc/calc-embed.el
diffstat 1 files changed, 1 insertions(+), 13 deletions(-) [+]
line wrap: on
line diff
--- 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)))))