(add-log-current-defun): Fix thinko w.r.t derived-mode-p.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 07343511379502ec4db93b8e042e614b501c125d..5c62f586ace024b0679e21f265d8f1facc0d9986 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/add-log.el b/lisp/add-log.el
index 3112a6e7667fc56189119432de40725606a03cd6..546f87b4e4d43634f61cbf860a42b31823df4b54 100644 (file)
--- a/lisp/add-log.el
+++ b/lisp/add-log.el
@@ -1016,7 +1016,7 @@ Has a preference of looking backwards."
                ((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