677 |
(setq calc-embedded-globals (cons t modes)) |
(setq calc-embedded-globals (cons t modes)) |
678 |
(goto-char save-pt))) |
(goto-char save-pt))) |
679 |
|
|
|
(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))) |
|
|
|
|
680 |
(defun calc-embedded-find-modes () |
(defun calc-embedded-find-modes () |
681 |
(let ((case-fold-search nil) |
(let ((case-fold-search nil) |
682 |
(save-pt (point)) |
(save-pt (point)) |
725 |
(backward-char 6)) |
(backward-char 6)) |
726 |
(goto-char save-pt) |
(goto-char save-pt) |
727 |
(unless (assq 'the-language modes) |
(unless (assq 'the-language modes) |
728 |
(let ((lang (assoc major-mode calc-embedded-language-alist))) |
(let ((lang (assoc major-mode calc-language-alist))) |
729 |
(if lang |
(if lang |
730 |
(setq modes (cons (cons 'the-language (cdr lang)) |
(setq modes (cons (cons 'the-language (cdr lang)) |
731 |
modes))))) |
modes))))) |