Mercurial > emacs

changeset 1034:5cc1bd18edf7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Richard M. Stallman <rms@gnu.org>
date Thu, 27 Aug 1992 04:22:31 +0000
parents 230459774744
children 56b6d2f4383a
files lisp/add-log.el
diffstat 1 files changed, 7 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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