# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 775018250 0
# Node ID 589abdc989e1693a051fb21acf8acd4799bb9b72
# Parent  ff0139dfba531d24a25c87bba8b7d508128df5ae
(add-log-current-defun): Skip doc string
correctly even if it ends with line that starts space.

diff -r ff0139dfba53 -r 589abdc989e1 lisp/add-log.el
--- a/lisp/add-log.el	Sun Jul 24 01:20:24 1994 +0000
+++ b/lisp/add-log.el	Sun Jul 24 02:50:50 1994 +0000
@@ -358,7 +358,9 @@
 			 ;; or the DEFUN macro used by the C library.
 			 (if (condition-case nil
 				 (and (save-excursion
-					(forward-line 1)
+					(end-of-line)
+					(while (= (preceding-char) ?\\)
+					  (end-of-line 2))
 					(backward-sexp 1)
 					(beginning-of-line)
 					(setq tem (point))