diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2001-03-06 23:33:15 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2001-03-06 23:33:15 +0000 |
| commit | c06e9d8bccbed1351d557d1e56dd8e8338edb305 (patch) | |
| tree | 0dd6d5546ca0f1fdab46dc6b00ea46d31c725e92 /lisp/add-log.el | |
| parent | c83965c448ba35174773b90a32a0497c8406350f (diff) | |
| download | emacs-c06e9d8bccbed1351d557d1e56dd8e8338edb305.tar.gz | |
(add-log-current-defun): Check major-mode for `cperl-mode' as well.
Diffstat (limited to 'lisp/add-log.el')
| -rw-r--r-- | lisp/add-log.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/add-log.el b/lisp/add-log.el index ce8130c4a43..3154fcf13ec 100644 --- a/lisp/add-log.el +++ b/lisp/add-log.el @@ -794,7 +794,7 @@ Has a preference of looking backwards." ((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 |