# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 714889351 0
# Node ID 5cc1bd18edf7397d51600ace9aa02ddaa011ffe4
# Parent  230459774744ab6d8a3bd055cc365ae8b4f62800
*** empty log message ***

diff -r 230459774744 -r 5cc1bd18edf7 lisp/add-log.el
--- a/lisp/add-log.el	Tue Aug 25 01:57:37 1992 +0000
+++ b/lisp/add-log.el	Thu Aug 27 04:22:31 1992 +0000
@@ -276,9 +276,15 @@
 		       (forward-line -1))
 		     ;; See if this is using the DEFUN macro used in Emacs,
 		     ;; or the DEFUN macro used by the C library.
-		     (if (and (looking-at "DEFUN\\b")
+		     (if (and (save-excursion
+				(forward-line 1)
+				(backward-sexp 1)
+				(beginning-of-line)
+				(setq tem (point))
+				(looking-at "DEFUN\\b"))
 			      (>= location (point)))
 			 (progn
+			   (goto-char tem)
 			   (down-list 1)
 			   (if (= (char-after (point)) ?\")
 			       (progn