[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/calc/calc-embed.el
From: |
Jay Belanger |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/calc/calc-embed.el |
Date: |
Fri, 11 Mar 2005 17:19:02 -0500 |
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)))))