diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-05-05 04:09:14 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-05-05 04:09:14 +0000 |
| commit | bfce64768d8b655ca4a7c60c50a17cc20c6ef0b5 (patch) | |
| tree | 2e4346801295b97a366a76ee296fdb790d611567 /lisp/add-log.el | |
| parent | ada4407b16170bb511bae681fcc83c9ea88dfcca (diff) | |
| download | emacs-bfce64768d8b655ca4a7c60c50a17cc20c6ef0b5.tar.gz | |
(add-log-current-defun): Fix previous fortran change.
Diffstat (limited to 'lisp/add-log.el')
| -rw-r--r-- | lisp/add-log.el | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/lisp/add-log.el b/lisp/add-log.el index 9262d12112a..b71257a015a 100644 --- a/lisp/add-log.el +++ b/lisp/add-log.el @@ -640,20 +640,20 @@ Has a preference of looking backwards." (let ((case-fold-search t)) ; case-insensitive ;; search for fortran subprogram start (if (re-search-forward - "^[ \t]*\\(program\\|subroutine\\|function\ + "^[ \t]*\\(program\\|subroutine\\|function\ \\|[ \ta-z0-9*()]*[ \t]+function\\|\\(block[ \t]*data\\)\\)" - (progn (end-of-fortran-subprogram) - (point)) - t) + (save-excursion (end-of-fortran-subprogram) + (point)) + t) (or (match-string 2) - (progn - ;; move to EOL or before first left paren - (if (re-search-forward "[(\n]" nil t) + (progn + ;; move to EOL or before first left paren + (if (re-search-forward "[(\n]" nil t) (progn (backward-char) - (skip-chars-backward " \t")) - (end-of-line)) - ;; Use the name preceding that. - (buffer-substring (point) + (skip-chars-backward " \t")) + (end-of-line)) + ;; Use the name preceding that. + (buffer-substring (point) (progn (backward-sexp) (point))))) "main"))) |