mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-11 16:08:13 +00:00
Code Issues Releases Activity

(add-log-current-defun): Check major-mode for `cperl-mode' as well.

Browse Source
This commit is contained in:
Stefan Monnier 2001-03-06 23:33:15 +00:00
parent c83965c448
commit c06e9d8bcc
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/add-log.el
View File

@ -794,7 +794,7 @@ Has a preference of looking backwards."
((eq major-mode 'texinfo-mode)
(if (re-search-backward "^@node[ \t]+\\([^,\n]+\\)" nil t)
(match-string-no-properties 1)))
((eq major-mode 'perl-mode)
((memq major-mode '(perl-mode cperl-mode))
(if (re-search-backward "^sub[ \t]+\\([^ \t\n]+\\)" nil t)
(match-string-no-properties 1)))
;; Emacs's autoconf-mode installs its own