diff options
| author | Roland McGrath <roland@gnu.org> | 1993-01-25 17:05:57 +0000 |
|---|---|---|
| committer | Roland McGrath <roland@gnu.org> | 1993-01-25 17:05:57 +0000 |
| commit | 63ed0aa079efeb008e2aeea3a677542f59b1a7b5 (patch) | |
| tree | be045594658e423278291a5ad4334ed33adbdbe3 /lisp | |
| parent | c7e69876999c3beb7b8af55e48935d8094884ae9 (diff) | |
| download | emacs-63ed0aa079efeb008e2aeea3a677542f59b1a7b5.tar.gz | |
(add-change-log-entry): Restrict PARAGRAPH-END to being on the first
page.
Diffstat (limited to 'lisp')
| -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." " " 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) |