From: Dave Love <fx@gnu.org>
Date: Fri, 26 Nov 1999 17:35:33 +0000 (+0000)
Subject: (add-log-current-defun): Use fortran-{beginning,end}-of-subprogram.
X-Git-Tag: emacs-pretest-21.0.90~5958
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1b22f645378e6283f00c0870602e8bcaf06887ec;p=emacs.git

(add-log-current-defun): Use fortran-{beginning,end}-of-subprogram.
---

diff --git a/lisp/add-log.el b/lisp/add-log.el
index 073a0ccd044..cd41f1ac1d8 100644
--- a/lisp/add-log.el
+++ b/lisp/add-log.el
@@ -665,13 +665,13 @@ Has a preference of looking backwards."
 		     ;; Needs work for f90, but better than nothing.
 		     (eq major-mode 'f90-mode))
                  ;; must be inside function body for this to work
-                 (beginning-of-fortran-subprogram)
+                 (fortran-beginning-of-subprogram)
                  (let ((case-fold-search t)) ; case-insensitive
                    ;; search for fortran subprogram start
                    (if (re-search-forward
                         "^[ \t]*\\(program\\|subroutine\\|function\
 \\|[ \ta-z0-9*()]*[ \t]+function\\|\\(block[ \t]*data\\)\\)"
-                        (save-excursion (end-of-fortran-subprogram)
+                        (save-excursion (fortran-end-of-subprogram)
                                         (point))
                         t)
                        (or (match-string 2)