mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-21 05:21:37 -07:00
Code Issues Projects Releases Wiki Activity

(add-log-current-defun): Add support for

Browse source 
Autoconf mode.
This commit is contained in:
Gerd Moellmann 2000-03-02 09:32:23 +00:00
parent 6c5def8e73
commit f654865f83
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/add-log.el
View file

@ -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))