799 |
#'fortran-current-defun) |
#'fortran-current-defun) |
800 |
(set (make-local-variable 'dabbrev-case-fold-search) 'case-fold-search) |
(set (make-local-variable 'dabbrev-case-fold-search) 'case-fold-search) |
801 |
(set (make-local-variable 'gud-find-expr-function) 'fortran-gud-find-expr) |
(set (make-local-variable 'gud-find-expr-function) 'fortran-gud-find-expr) |
802 |
(run-hooks 'fortran-mode-hook)) |
(run-mode-hooks 'fortran-mode-hook)) |
803 |
|
|
804 |
|
|
805 |
(defun fortran-gud-find-expr () |
(defun fortran-gud-find-expr () |