/[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.19 by jpb, Thu Mar 10 07:14:32 2005 UTC revision 1.20 by jpb, Fri Mar 11 22:19:02 2005 UTC
# Line 677  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    
 (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))
# Line 737  The command \\[yank] can retrieve it fro Line 725  The command \\[yank] can retrieve it fro
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)))))

Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20

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