From: Nick Roberts <nickrob@snap.net.nz>
Date: Wed, 18 Jun 2003 22:35:37 +0000 (+0000)
Subject: (fortran-gud-syntax-table): Syntax table
X-Git-Tag: ttn-vms-21-2-B4~9609
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f6bf87c5a1f8f119c4e5f8a9da9d42505479fde3;p=emacs.git

(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 5badcfb1efa..7d9f5ca61b3 100644
--- 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))