# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 781388934 0
# Node ID 1a69634e3477ac54666e772316b1311853866dee
# Parent  fec27dfc068493b6d04b5a0a03372c9bbf33a75f
(add-log-current-defun): Handle Perl specially.

diff -r fec27dfc0684 -r 1a69634e3477 lisp/add-log.el
--- a/lisp/add-log.el	Wed Oct 05 09:33:33 1994 +0000
+++ b/lisp/add-log.el	Wed Oct 05 20:28:54 1994 +0000
@@ -289,7 +289,7 @@
   "Return name of function definition point is in, or nil.
 
 Understands C, Lisp, LaTeX (\"functions\" are chapters, sections, ...),
-Texinfo (@node titles), and Fortran.
+Texinfo (@node titles), Perl, and Fortran.
 
 Other modes are handled by a heuristic that looks in the 10K before
 point for uppercase headings starting in the first column or
@@ -423,6 +423,10 @@
 		 (if (re-search-backward "^@node[ \t]+\\([^,]+\\)," nil t)
 		     (buffer-substring (match-beginning 1)
 				       (match-end 1))))
+		((eq major-mode 'perl-mode)
+		 (if (re-search-backward "^sub[ \t]+\\([^ \t\n]+\\)" nil t)
+		     (buffer-substring (match-beginning 1)
+				       (match-end 1))))
                 ((eq major-mode 'fortran-mode)
                  ;; must be inside function body for this to work
                  (beginning-of-fortran-subprogram)