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 |