mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
page.
This commit is contained in:
Roland McGrath 1993-01-25 17:05:57 +00:00
parent c7e6987699
commit 63ed0aa079
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/add-log.el
View file

@ -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)