Mercurial > emacs

comparison lisp/add-log.el @ 1813:a8f3ef142271

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(add-change-log-entry): Restrict PARAGRAPH-END to being on the first page.
author Roland McGrath <roland@gnu.org>
date Mon, 25 Jan 1993 17:05:57 +0000
parents b2af3186e7a7
children 63af9f715bd3
comparison
equal deleted inserted replaced
1812:32248d533b4b 1813:a8f3ef142271
110 " (" (regexp-quote login-name) "@")) 110 " (" (regexp-quote login-name) "@"))
111 (insert (current-time-string) 111 (insert (current-time-string)
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))
119 (forward-page 1)
120 (if (< (point) paragraph-end)
121 (setq paragraph-end (point)))
118 (goto-char (point-min)) 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)
122 ;; Put this file name into the existing empty entry. 126 ;; Put this file name into the existing empty entry.