🚀 go-pugleaf

In GNU Emacs 19.22.1 of Wed Mar 16 1994 on fuzzy (linux)

`C-x 4 a' (add-change-log-entry-other-window) does not recognize and
insert the Perl function name in the automatically preinitialized
entry.  Here are a few diffs adding this capability.

This diffset also corrects two typos which *might* prevent function
recognition to work properly with C++.


diff -u -r1.1 add-log.el
--- 1.1	1994/10/05 12:29:59
+++ add-log.el	1994/10/05 12:36:18
@@ -286,7 +286,7 @@
 (defun add-log-current-defun ()
   "Return name of function definition point is in, or nil.
 
-Understands C, Lisp, LaTeX (\"functions\" are chapters, sections, ...),
+Understands C, Perl, Lisp, LaTeX (\"functions\" are chapters, sections, ...),
 Texinfo (@node titles), and Fortran.
 
 Other modes are handled by a heuristic that looks in the 10K before
@@ -316,7 +316,7 @@
 		       (skip-chars-forward " ")
 		       (buffer-substring (point)
 					 (progn (forward-sexp 1) (point))))))
-		((and (memq major-mode '(c-mode 'c++-mode))
+		((and (memq major-mode '(c-mode c++-mode))
 		      (save-excursion (beginning-of-line)
 				      ;; Use eq instead of = here to avoid
 				      ;; error when at bob and char-after
@@ -332,7 +332,7 @@
 		 (skip-chars-forward " \t")
 		 (buffer-substring (point)
 				   (progn (forward-sexp 1) (point))))
-		((memq major-mode '(c-mode 'c++-mode))
+		((memq major-mode '(c-mode c++-mode))
 		 (beginning-of-line)
 		 ;; See if we are in the beginning part of a function,
 		 ;; before the open brace.  If so, advance forward.
@@ -416,6 +416,10 @@
 					   (point))))))
 		((eq major-mode 'texinfo-mode)
 		 (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)

-- 
Franc,ois Pinard        ``Vivement GNU!''       pinard@iro.umontreal.ca
About the League for Programming Freedom?  Email me or lpf@uunet.uu.net