From: Jay Belanger Date: Fri, 11 Mar 2005 22:23:26 +0000 (+0000) Subject: (calc-embedded-language-alist): Remove. X-Git-Tag: ttn-vms-21-2-B4~1831 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0e425a588c5da4a076c24b0cc0d11b2d4bfb3912;p=emacs.git (calc-embedded-language-alist): Remove. (calc-embedded-find-modes): Use calc-language-alist instead of calc-embedded-language-alist. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 85451bcad30..35df542ba9a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2005-03-11 Jay Belanger + + * calc/calc.el (calc-language-alist): New variable. + * calc/calc-embed.el (calc-embedded-language-alist): Remove. + (calc-embedded-find-modes): Use calc-language-alist instead of + calc-embedded-language-alist. + 2005-03-11 Glenn Morris * calendar/calendar.el (calendar-redrawing): New internal diff --git a/lisp/calc/calc-embed.el b/lisp/calc/calc-embed.el index 3ad42037b50..f1a273f7cf3 100644 --- a/lisp/calc/calc-embed.el +++ b/lisp/calc/calc-embed.el @@ -677,18 +677,6 @@ The command \\[yank] can retrieve it from there." (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 @@ The command \\[yank] can retrieve it from there." (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)))))