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) |
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 |
|
|