# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 983921595 0
# Node ID 9a50e930a703c65bf219119665792d6cb8c04209
# Parent  24397e66d5d9f7b2ffb0fbd4939fec9181167b79
(add-log-current-defun): Check major-mode for `cperl-mode' as well.

diff -r 24397e66d5d9 -r 9a50e930a703 lisp/add-log.el
--- a/lisp/add-log.el	Tue Mar 06 22:12:13 2001 +0000
+++ b/lisp/add-log.el	Tue Mar 06 23:33:15 2001 +0000
@@ -794,7 +794,7 @@
 		((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