martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages 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)