/[emacs]/emacs/lisp/progmodes/fortran.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/fortran.el

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

revision 1.107 by gm, Sun Apr 20 13:03:04 2003 UTC revision 1.108 by nickrob, Wed Jun 18 22:35:37 2003 UTC
# Line 419  These get fixed-format comments fontifie Line 419  These get fixed-format comments fontifie
419      table)      table)
420    "Syntax table used in Fortran mode.")    "Syntax table used in Fortran mode.")
421    
422    (defvar fortran-gud-syntax-table
423      (let ((st (make-syntax-table fortran-mode-syntax-table)))
424        (modify-syntax-entry ?\n "." st)
425        st)
426      "Syntax table used to parse Fortran expressions for printing in GUD.")
427    
428  (defvar fortran-mode-map  (defvar fortran-mode-map
429    (let ((map (make-sparse-keymap)))    (let ((map (make-sparse-keymap)))
430      (define-key map ";"        'fortran-abbrev-start)      (define-key map ";"        'fortran-abbrev-start)
# Line 691  with no args, if that value is non-nil." Line 697  with no args, if that value is non-nil."
697    (set (make-local-variable 'add-log-current-defun-function)    (set (make-local-variable 'add-log-current-defun-function)
698         #'fortran-current-defun)         #'fortran-current-defun)
699    (set (make-local-variable 'dabbrev-case-fold-search) 'case-fold-search)    (set (make-local-variable 'dabbrev-case-fold-search) 'case-fold-search)
700      (set (make-local-variable 'gud-find-expr) 'gud-find-fortran-expr)
701    (run-hooks 'fortran-mode-hook))    (run-hooks 'fortran-mode-hook))
702    
703    

Legend:
Removed from v.1.107  
changed lines
  Added in v.1.108

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