diff options
| -rw-r--r-- | lisp/add-log.el | 6 |
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." | |||
| 112 | " " full-name | 112 | " " full-name |
| 113 | " (" login-name "@" site-name ")\n\n")) | 113 | " (" login-name "@" site-name ")\n\n")) |
| 114 | 114 | ||
| 115 | ;; Search only within the first paragraph. | 115 | ;; Search only within the first paragraph of the first page. |
| 116 | (forward-paragraph 1) | 116 | (forward-paragraph 1) |
| 117 | (setq paragraph-end (point)) | 117 | (setq paragraph-end (point)) |
| 118 | (goto-char (point-min)) | 118 | (goto-char (point-min)) |
| 119 | (forward-page 1) | ||
| 120 | (if (< (point) paragraph-end) | ||
| 121 | (setq paragraph-end (point))) | ||
| 122 | (goto-char (point-min)) | ||
| 119 | 123 | ||
| 120 | ;; Now insert the new line for this entry. | 124 | ;; Now insert the new line for this entry. |
| 121 | (cond ((re-search-forward "^\\s *\\*\\s *$" paragraph-end t) | 125 | (cond ((re-search-forward "^\\s *\\*\\s *$" paragraph-end t) |