Mercurial > emacs

changeset 36604:9a50e930a703

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(add-log-current-defun): Check major-mode for `cperl-mode' as well.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Tue, 06 Mar 2001 23:33:15 +0000
parents 24397e66d5d9
children d29b9968e84f
files lisp/add-log.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/add-log.el	Tue Mar 06 22:12:13 2001 +0000
+++ b/lisp/add-log.el	Tue Mar 06 23:33:15 2001 +0000
@@ -794,7 +794,7 @@
 		((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