# HG changeset patch
# User Roland McGrath <roland@gnu.org>
# Date 727981557 0
# Node ID a8f3ef1422717a139e408f3a207760fdd7ef6fb7
# Parent  32248d533b4b6efb6f2d81da1ead9763a9ab450e
(add-change-log-entry): Restrict PARAGRAPH-END to being on the first
page.

diff -r 32248d533b4b -r a8f3ef142271 lisp/add-log.el
--- a/lisp/add-log.el	Mon Jan 25 16:59:48 1993 +0000
+++ b/lisp/add-log.el	Mon Jan 25 17:05:57 1993 +0000
@@ -112,10 +112,14 @@
 		"  " full-name
 		"  (" login-name "@" site-name ")\n\n"))
 
-    ;; Search only within the first paragraph.
+    ;; Search only within the first paragraph of the first page.
     (forward-paragraph 1)
     (setq paragraph-end (point))
     (goto-char (point-min))
+    (forward-page 1)
+    (if (< (point) paragraph-end)
+	(setq paragraph-end (point)))
+    (goto-char (point-min))
 
     ;; Now insert the new line for this entry.
     (cond ((re-search-forward "^\\s *\\*\\s *$" paragraph-end t)