From fb1b68a482b97ddb7dba49d9669094efd51ece33 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 20 Sep 2007 14:06:13 +0000 Subject: [PATCH] (add-log-current-defun): Fix thinko w.r.t derived-mode-p. --- lisp/ChangeLog | 4 ++++ lisp/add-log.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 07343511379..5c62f586ace 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2007-09-20 Stefan Monnier + + * add-log.el (add-log-current-defun): Fix thinko w.r.t derived-mode-p. + 2007-09-20 Glenn Morris * textmodes/tex-mode.el (tex-validate-buffer): Use paragraph diff --git a/lisp/add-log.el b/lisp/add-log.el index 3112a6e7667..546f87b4e4d 100644 --- 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 -- 2.39.5