Mercurial > emacs
changeset 51615:64bebb34e646
(fortran-gud-syntax-table): Syntax table
for parsing Fortran expressions for gud-print. (Stefan Monnier)
(fortran-mode): Add local variable gud-find-expr.
| author | Nick Roberts <nickrob@snap.net.nz> |
|---|---|
| date | Wed, 18 Jun 2003 22:35:37 +0000 |
| parents | 73108f24fe68 |
| children | 25262b54af10 |
| files | lisp/progmodes/fortran.el |
| diffstat | 1 files changed, 7 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/fortran.el Wed Jun 18 22:34:36 2003 +0000 +++ b/lisp/progmodes/fortran.el Wed Jun 18 22:35:37 2003 +0000 @@ -419,6 +419,12 @@ table) "Syntax table used in Fortran mode.") +(defvar fortran-gud-syntax-table + (let ((st (make-syntax-table fortran-mode-syntax-table))) + (modify-syntax-entry ?\n "." st) + st) + "Syntax table used to parse Fortran expressions for printing in GUD.") + (defvar fortran-mode-map (let ((map (make-sparse-keymap))) (define-key map ";" 'fortran-abbrev-start) @@ -691,6 +697,7 @@ (set (make-local-variable 'add-log-current-defun-function) #'fortran-current-defun) (set (make-local-variable 'dabbrev-case-fold-search) 'case-fold-search) + (set (make-local-variable 'gud-find-expr) 'gud-find-fortran-expr) (run-hooks 'fortran-mode-hook))