(fortran-gud-syntax-table): Syntax table

for parsing Fortran expressions for gud-print. (Stefan Monnier)
(fortran-mode): Add local variable gud-find-expr.

diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el
index 5badcfb1efad8290b59511f217c0f382669963bf..7d9f5ca61b306e050ba0a272be89567ac1375a19 100644 (file)
--- a/lisp/progmodes/fortran.el
+++ b/lisp/progmodes/fortran.el
@@ -419,6 +419,12 @@ These get fixed-format comments fontified.")
     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 @@ with no args, if that value is non-nil."
   (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))
 
 \f