procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(calc-embedded-language-alist): Remove.

Browse source 
(calc-embedded-find-modes): Use calc-language-alist instead of
calc-embedded-language-alist.
This commit is contained in:
Jay Belanger 2005-03-11 22:23:26 +00:00
parent b81c4a73fb
commit 0e425a588c
2 changed files with 8 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/ChangeLog
View file

@ -1,3 +1,10 @@
2005-03-11 Jay Belanger <belanger@truman.edu>
* 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 <gmorris@ast.cam.ac.uk>
* calendar/calendar.el (calendar-redrawing): New internal

14
lisp/calc/calc-embed.el
View file

@ -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)))))