diff options
| author | Dave Love <fx@gnu.org> | 1999-11-26 17:35:33 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 1999-11-26 17:35:33 +0000 |
| commit | 1b22f645378e6283f00c0870602e8bcaf06887ec (patch) | |
| tree | 4bfe063ed010c63698f6b5f502e14e748017df91 /lisp | |
| parent | c095ddb9a10e2a2898e61890e9c708c407d91130 (diff) | |
| download | emacs-1b22f645378e6283f00c0870602e8bcaf06887ec.tar.gz | |
(add-log-current-defun): Use fortran-{beginning,end}-of-subprogram.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/add-log.el | 4 |
1 files changed, 2 insertions, 2 deletions
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) |