mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-29 07:58:28 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Dave Love 1999-11-26 17:35:33 +00:00
parent c095ddb9a1
commit 1b22f64537
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/add-log.el
View File

@ -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)