(add-change-log-entry): Restrict PARAGRAPH-END to being on the first

page.

1 files changed, 5 insertions, 1 deletions

diff --git a/lisp/add-log.el b/lisp/add-log.el
index edd0db80659..0f4cc97347b 100644
--- a/lisp/add-log.el
+++ b/lisp/add-log.el
@@ -112,10 +112,14 @@ Third arg OTHER-WINDOW non-nil means visit in other window."
                 "  " 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)