From bfce64768d8b655ca4a7c60c50a17cc20c6ef0b5 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 5 May 1998 04:09:14 +0000 Subject: [PATCH] (add-log-current-defun): Fix previous fortran change. --- lisp/add-log.el | 22 +++++++++++----------- 1 file 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"))) -- 2.39.5