/[emacs]/emacs/lisp/calc/calc-embed.el
ViewVC logotype

Diff of /emacs/lisp/calc/calc-embed.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.17 by jpb, Fri Feb 4 06:22:18 2005 UTC revision 1.18 by jpb, Tue Mar 8 05:26:44 2005 UTC
# Line 244  This is not required to be present for u Line 244  This is not required to be present for u
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
# Line 670  The command \\[yank] can retrieve it fro Line 677  The command \\[yank] can retrieve it fro
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))
# Line 717  The command \\[yank] can retrieve it fro Line 736  The command \\[yank] can retrieve it fro
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,

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26