Mercurial > emacs

comparison lisp/add-log.el @ 1999:ced6a5b2519d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(add-change-log-entry): Never move past second hdr line.
author Richard M. Stallman <rms@gnu.org>
date Tue, 02 Mar 1993 18:39:39 +0000
parents 02bb7721b67c
children 2c7997f249eb
comparison
equal deleted inserted replaced
1998:656f4297962e 1999:ced6a5b2519d
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.
116 (forward-paragraph 1) 116 (if (looking-at "\n*[^\n* \t]")
117 (skip-chars-forward "\n")
118 (forward-paragraph 1))
117 (setq paragraph-end (point)) 119 (setq paragraph-end (point))
118 (goto-char (point-min)) 120 (goto-char (point-min))
119 121
120 ;; Now insert the new line for this entry. 122 ;; Now insert the new line for this entry.
121 (cond ((re-search-forward "^\\s *\\*\\s *$" paragraph-end t) 123 (cond ((re-search-forward "^\\s *\\*\\s *$" paragraph-end t)