Commit c06e9d8b authored by Stefan Monnier's avatar Stefan Monnier

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

parent c83965c4
......@@ -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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment