Mercurial > emacs

comparison lisp/add-log.el @ 8261:3eab4db14a5d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(add-change-log-entry): Use <...> around mail address.
author Richard M. Stallman <rms@gnu.org>
date Sat, 16 Jul 1994 19:30:21 +0000
parents 9ad3db62f0e7
children 589abdc989e1
comparison
equal deleted inserted replaced
8260:1ad35b4d9128 8261:3eab4db14a5d
158 (undo-boundary) 158 (undo-boundary)
159 (goto-char (point-min)) 159 (goto-char (point-min))
160 (if (looking-at (concat (regexp-quote (substring (current-time-string) 160 (if (looking-at (concat (regexp-quote (substring (current-time-string)
161 0 10)) 161 0 10))
162 ".* " (regexp-quote add-log-full-name) 162 ".* " (regexp-quote add-log-full-name)
163 " (" (regexp-quote add-log-mailing-address))) 163 " <" (regexp-quote add-log-mailing-address)))
164 (forward-line 1) 164 (forward-line 1)
165 (insert (current-time-string) 165 (insert (current-time-string)
166 " " add-log-full-name 166 " " add-log-full-name
167 " (" add-log-mailing-address ")\n\n")) 167 " <" add-log-mailing-address ">\n\n"))
168 168
169 ;; Search only within the first paragraph. 169 ;; Search only within the first paragraph.
170 (if (looking-at "\n*[^\n* \t]") 170 (if (looking-at "\n*[^\n* \t]")
171 (skip-chars-forward "\n") 171 (skip-chars-forward "\n")
172 (forward-paragraph 1)) 172 (forward-paragraph 1))