[Emacs-diffs] Changes to emacs/lisp/calc/calc-embed.el

[Jay Belanger]

Index: emacs/lisp/calc/calc-embed.el
diff -c emacs/lisp/calc/calc-embed.el:1.17 emacs/lisp/calc/calc-embed.el:1.18
*** emacs/lisp/calc/calc-embed.el:1.17  Fri Feb  4 06:22:18 2005
--- emacs/lisp/calc/calc-embed.el       Tue Mar  8 05:26:44 2005
***************
*** 244,249 ****
--- 244,256 ----
        (use-local-map calc-mode-map)
        (setq calc-no-refresh-evaltos nil)
        (and chg calc-any-evaltos (calc-wrapper (calc-refresh-evaltos)))
+       (let (str)
+         (save-excursion
+           (calc-select-buffer)
+           (setq str mode-line-buffer-identification))
+         (unless (equal str mode-line-buffer-identification)
+           (setq mode-line-buffer-identification str)
+           (set-buffer-modified-p (buffer-modified-p))))
        (or (eq calc-embedded-quiet t)
          (message "Embedded Calc mode enabled; %s to return to normal"
                   (if calc-embedded-quiet
***************
*** 670,675 ****
--- 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))
***************
*** 717,722 ****
--- 736,746 ----
               (setq no-defaults nil)))
        (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)))))
      (list modes emodes pmodes)))
  
  ;; The variable calc-embed-vars-used is local to calc-embedded-make-info,