From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 6 Mar 2001 23:33:15 +0000 (+0000)
Subject: (add-log-current-defun): Check major-mode for `cperl-mode' as well.
X-Git-Tag: emacs-pretest-21.0.100~169
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c06e9d8bccbed1351d557d1e56dd8e8338edb305;p=emacs.git

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

diff --git a/lisp/add-log.el b/lisp/add-log.el
index ce8130c4a43..3154fcf13ec 100644
--- a/lisp/add-log.el
+++ b/lisp/add-log.el
@@ -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