# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1055978788 0
# Node ID 16b79b135bf59043f02ebf6d1cee82e76594ce79
# Parent  6a5cb63d165ce5628b369828cb08f9e221665e21
(gud-find-expr-function): Rename from gud-find-expr.
(gud-find-fortran-expr): Move to fortran.el.

diff -r 6a5cb63d165c -r 16b79b135bf5 lisp/progmodes/gud.el
--- a/lisp/progmodes/gud.el	Wed Jun 18 23:25:39 2003 +0000
+++ b/lisp/progmodes/gud.el	Wed Jun 18 23:26:28 2003 +0000
@@ -2658,15 +2658,10 @@
 ;; point is gud-find-expr, which tries to return an lvalue expression from
 ;; around point.
 
-(defvar gud-find-expr 'gud-find-c-expr)
+(defvar gud-find-expr-function 'gud-find-c-expr)
 
 (defun gud-find-expr (&rest args)
-  (apply gud-find-expr args))
-
-(defun gud-find-fortran-expr ()
-  ;; Consider \n as punctuation (end of expression).
-  (with-syntax-table fortran-gud-syntax-table
-    (gud-find-c-expr)))
+  (apply gud-find-expr-function args))
 
 ;; The next eight functions are hacked from gdbsrc.el by
 ;; Debby Ayers <ayers@asc.slb.com>,