diff options
| author | Dave Love | 1999-11-26 17:35:33 +0000 |
|---|---|---|
| committer | Dave Love | 1999-11-26 17:35:33 +0000 |
| commit | 1b22f645378e6283f00c0870602e8bcaf06887ec (patch) | |
| tree | 4bfe063ed010c63698f6b5f502e14e748017df91 | |
| parent | c095ddb9a10e2a2898e61890e9c708c407d91130 (diff) | |
| download | emacs-1b22f645378e6283f00c0870602e8bcaf06887ec.tar.gz emacs-1b22f645378e6283f00c0870602e8bcaf06887ec.zip | |
(add-log-current-defun): Use fortran-{beginning,end}-of-subprogram.
| -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." | |||
| 665 | ;; Needs work for f90, but better than nothing. | 665 | ;; Needs work for f90, but better than nothing. |
| 666 | (eq major-mode 'f90-mode)) | 666 | (eq major-mode 'f90-mode)) |
| 667 | ;; must be inside function body for this to work | 667 | ;; must be inside function body for this to work |
| 668 | (beginning-of-fortran-subprogram) | 668 | (fortran-beginning-of-subprogram) |
| 669 | (let ((case-fold-search t)) ; case-insensitive | 669 | (let ((case-fold-search t)) ; case-insensitive |
| 670 | ;; search for fortran subprogram start | 670 | ;; search for fortran subprogram start |
| 671 | (if (re-search-forward | 671 | (if (re-search-forward |
| 672 | "^[ \t]*\\(program\\|subroutine\\|function\ | 672 | "^[ \t]*\\(program\\|subroutine\\|function\ |
| 673 | \\|[ \ta-z0-9*()]*[ \t]+function\\|\\(block[ \t]*data\\)\\)" | 673 | \\|[ \ta-z0-9*()]*[ \t]+function\\|\\(block[ \t]*data\\)\\)" |
| 674 | (save-excursion (end-of-fortran-subprogram) | 674 | (save-excursion (fortran-end-of-subprogram) |
| 675 | (point)) | 675 | (point)) |
| 676 | t) | 676 | t) |
| 677 | (or (match-string 2) | 677 | (or (match-string 2) |