changeset 84676:a5b42c90ed30

(add-log-current-defun): Fix thinko w.r.t derived-mode-p.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Thu, 20 Sep 2007 14:06:13 +0000
parents d820118cf671
children 421e6c54ace8
files lisp/ChangeLog lisp/add-log.el
diffstat 2 files changed, 5 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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
--- 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