Mercurial > emacs
comparison lisp/add-log.el @ 36604:9a50e930a703
(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 | 61d0887bbd4e |
| children | a19197c6442f |
comparison
equal
deleted
inserted
replaced
| 36603:24397e66d5d9 | 36604:9a50e930a703 |
|---|---|
| 792 (1+ (point)) ; without initial backslash | 792 (1+ (point)) ; without initial backslash |
| 793 (line-end-position))))) | 793 (line-end-position))))) |
| 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 |
| 801 ;; `add-log-current-defun-function'. This applies to | 801 ;; `add-log-current-defun-function'. This applies to |
| 802 ;; a different mode apparently for editing .m4 | 802 ;; a different mode apparently for editing .m4 |