(gud-find-expr-function): Rename from gud-find-expr.

(gud-find-fortran-expr): Move to fortran.el.

diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el
index e449553fd9bbaa3639d7d2b5a0edb4157c6903d1..695f884a6a7a609f9d4ca286da06083b1e6e11e8 100644 (file)
--- a/lisp/progmodes/gud.el
+++ b/lisp/progmodes/gud.el
@@ -2658,15 +2658,10 @@ Obeying it means displaying in another window the specified file and line."
 ;; 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>,