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