244 |
(use-local-map calc-mode-map) |
(use-local-map calc-mode-map) |
245 |
(setq calc-no-refresh-evaltos nil) |
(setq calc-no-refresh-evaltos nil) |
246 |
(and chg calc-any-evaltos (calc-wrapper (calc-refresh-evaltos))) |
(and chg calc-any-evaltos (calc-wrapper (calc-refresh-evaltos))) |
247 |
|
(let (str) |
248 |
|
(save-excursion |
249 |
|
(calc-select-buffer) |
250 |
|
(setq str mode-line-buffer-identification)) |
251 |
|
(unless (equal str mode-line-buffer-identification) |
252 |
|
(setq mode-line-buffer-identification str) |
253 |
|
(set-buffer-modified-p (buffer-modified-p)))) |
254 |
(or (eq calc-embedded-quiet t) |
(or (eq calc-embedded-quiet t) |
255 |
(message "Embedded Calc mode enabled; %s to return to normal" |
(message "Embedded Calc mode enabled; %s to return to normal" |
256 |
(if calc-embedded-quiet |
(if calc-embedded-quiet |
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 |
|
|
680 |
|
(defvar calc-embedded-language-alist |
681 |
|
'((latex-mode . latex) |
682 |
|
(tex-mode . tex) |
683 |
|
(plain-tex-mode . tex) |
684 |
|
(context-mode . tex) |
685 |
|
(nroff-mode . eqn) |
686 |
|
(pascal-mode . pascal) |
687 |
|
(c-mode . c) |
688 |
|
(c++-mode . c) |
689 |
|
(fortran-mode . fortran) |
690 |
|
(f90-mode . fortran))) |
691 |
|
|
692 |
(defun calc-embedded-find-modes () |
(defun calc-embedded-find-modes () |
693 |
(let ((case-fold-search nil) |
(let ((case-fold-search nil) |
694 |
(save-pt (point)) |
(save-pt (point)) |
736 |
(setq no-defaults nil))) |
(setq no-defaults nil))) |
737 |
(backward-char 6)) |
(backward-char 6)) |
738 |
(goto-char save-pt) |
(goto-char save-pt) |
739 |
|
(unless (assq 'the-language modes) |
740 |
|
(let ((lang (assoc major-mode calc-embedded-language-alist))) |
741 |
|
(if lang |
742 |
|
(setq modes (cons (cons 'the-language (cdr lang)) |
743 |
|
modes))))) |
744 |
(list modes emodes pmodes))) |
(list modes emodes pmodes))) |
745 |
|
|
746 |
;; The variable calc-embed-vars-used is local to calc-embedded-make-info, |
;; The variable calc-embed-vars-used is local to calc-embedded-make-info, |