# HG changeset patch # User Gerd Moellmann # Date 951989543 0 # Node ID c11a0bbb5c885bbf11bc2b0a6741b4ba36da73d7 # Parent b75299f3bc4c9d90793d05bd05f61f44ef8f5da3 (add-log-current-defun): Add support for Autoconf mode. diff -r b75299f3bc4c -r c11a0bbb5c88 lisp/add-log.el --- a/lisp/add-log.el Thu Mar 02 09:29:36 2000 +0000 +++ b/lisp/add-log.el Thu Mar 02 09:32:23 2000 +0000 @@ -749,6 +749,10 @@ (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))