# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1190297173 0
# Node ID a5b42c90ed3057e87ec3f81369b561b251a18681
# Parent  d820118cf6719ccccb88980efa1780be3d78049d
(add-log-current-defun): Fix thinko w.r.t derived-mode-p.

diff -r d820118cf671 -r a5b42c90ed30 lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Sep 20 03:11:55 2007 +0000
+++ b/lisp/ChangeLog	Thu Sep 20 14:06:13 2007 +0000
@@ -1,3 +1,7 @@
+2007-09-20  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* add-log.el (add-log-current-defun): Fix thinko w.r.t derived-mode-p.
+
 2007-09-20  Glenn Morris  <rgm@gnu.org>
 
 	* textmodes/tex-mode.el (tex-validate-buffer): Use paragraph
diff -r d820118cf671 -r a5b42c90ed30 lisp/add-log.el
--- a/lisp/add-log.el	Thu Sep 20 03:11:55 2007 +0000
+++ b/lisp/add-log.el	Thu Sep 20 14:06:13 2007 +0000
@@ -1016,7 +1016,7 @@
 		((derived-mode-p 'texinfo-mode)
 		 (if (re-search-backward "^@node[ \t]+\\([^,\n]+\\)" nil t)
 		     (match-string-no-properties 1)))
-		((derived-mode-p '(perl-mode cperl-mode))
+		((derived-mode-p '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