From f6bf87c5a1f8f119c4e5f8a9da9d42505479fde3 Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Wed, 18 Jun 2003 22:35:37 +0000 Subject: [PATCH] (fortran-gud-syntax-table): Syntax table for parsing Fortran expressions for gud-print. (Stefan Monnier) (fortran-mode): Add local variable gud-find-expr. --- lisp/progmodes/fortran.el | 7 +++++++ 1 file changed, 7 insertions(+) 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)) -- 2.39.2