From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 18 Jun 2003 23:25:39 +0000 (+0000)
Subject: (fortran-gud-find-expr): Move from gud.el (was gud-find-fortran-expr).
X-Git-Tag: ttn-vms-21-2-B4~9606
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5727e7486425fe68e9017dee29b209ceb4fa7ce4;p=emacs.git

(fortran-gud-find-expr): Move from gud.el (was gud-find-fortran-expr).
(fortran-mode): Set gud-find-expr-function.
---

diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el
index 7d9f5ca61b3..13da2906170 100644
--- a/lisp/progmodes/fortran.el
+++ b/lisp/progmodes/fortran.el
@@ -1,6 +1,6 @@
 ;;; fortran.el --- Fortran mode for GNU Emacs
 
-;; Copyright (c) 1986, 93, 94, 95, 97, 98, 99, 2000, 2001
+;; Copyright (c) 1986, 93, 94, 95, 97, 98, 99, 2000, 01, 2003
 ;;   Free Software Foundation, Inc.
 
 ;; Author: Michael D. Prange <prange@erl.mit.edu>
@@ -697,10 +697,15 @@ 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)
+  (set (make-local-variable 'gud-find-expr-function) 'fortran-gud-find-expr)
   (run-hooks 'fortran-mode-hook))
 
 
+(defun fortran-gud-find-expr ()
+  ;; Consider \n as punctuation (end of expression).
+  (with-syntax-table fortran-gud-syntax-table
+    (gud-find-c-expr)))
+
 (defsubst fortran-comment-indent ()
   "Return the indentation appropriate for the current comment line.
 This is 0 for a line matching `fortran-comment-line-start-skip', else