From f654865f83808432e27bfc4c330c70ad466316cf Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Thu, 2 Mar 2000 09:32:23 +0000 Subject: [PATCH] (add-log-current-defun): Add support for Autoconf mode. --- lisp/add-log.el | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/lisp/add-log.el b/lisp/add-log.el index 1ded7dbe35d..a30e5eb9b7e 100644 --- a/lisp/add-log.el +++ b/lisp/add-log.el @@ -749,6 +749,10 @@ Has a preference of looking backwards." (if (re-search-backward "^sub[ \t]+\\([^ \t\n]+\\)" nil t) (buffer-substring (match-beginning 1) (match-end 1)))) + ((eq major-mode 'autoconf-mode) + (if (re-search-backward "^\\(\\(m4_\\)?define\\|A._DEFUN\\)(\\[?\\([A-Za-z0-9_]+\\)" nil t) + (buffer-substring (match-beginning 3) + (match-end 3)))) ((or (eq major-mode 'fortran-mode) ;; Needs work for f90, but better than nothing. (eq major-mode 'f90-mode)) -- 2.39.5