diff options
| author | Stefan Monnier | 2001-03-06 23:33:15 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2001-03-06 23:33:15 +0000 |
| commit | c06e9d8bccbed1351d557d1e56dd8e8338edb305 (patch) | |
| tree | 0dd6d5546ca0f1fdab46dc6b00ea46d31c725e92 | |
| parent | c83965c448ba35174773b90a32a0497c8406350f (diff) | |
| download | emacs-c06e9d8bccbed1351d557d1e56dd8e8338edb305.tar.gz emacs-c06e9d8bccbed1351d557d1e56dd8e8338edb305.zip | |
(add-log-current-defun): Check major-mode for `cperl-mode' as well.
| -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." | |||
| 794 | ((eq major-mode 'texinfo-mode) | 794 | ((eq major-mode 'texinfo-mode) |
| 795 | (if (re-search-backward "^@node[ \t]+\\([^,\n]+\\)" nil t) | 795 | (if (re-search-backward "^@node[ \t]+\\([^,\n]+\\)" nil t) |
| 796 | (match-string-no-properties 1))) | 796 | (match-string-no-properties 1))) |
| 797 | ((eq major-mode 'perl-mode) | 797 | ((memq major-mode '(perl-mode cperl-mode)) |
| 798 | (if (re-search-backward "^sub[ \t]+\\([^ \t\n]+\\)" nil t) | 798 | (if (re-search-backward "^sub[ \t]+\\([^ \t\n]+\\)" nil t) |
| 799 | (match-string-no-properties 1))) | 799 | (match-string-no-properties 1))) |
| 800 | ;; Emacs's autoconf-mode installs its own | 800 | ;; Emacs's autoconf-mode installs its own |