Commit ec367ad6 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(add-change-log-entry): Find end of first paragraph from after the header line.

parent a8a6776b
;;; add-log.el --- change log maintenance commands for Emacs
;; Copyright (C) 1985, 86, 87, 88, 89, 90, 91, 1992, 1993
;; Free Software Foundation, Inc.
;; Copyright (C) 1985, 1986, 1988, 1993 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
......@@ -104,13 +103,14 @@ Third arg OTHER-WINDOW non-nil means visit in other window."
(find-file file-name))
(undo-boundary)
(goto-char (point-min))
(or (looking-at (concat (regexp-quote (substring (current-time-string)
(if (looking-at (concat (regexp-quote (substring (current-time-string)
0 10))
".* " (regexp-quote full-name)
" (" (regexp-quote login-name) "@"))
(insert (current-time-string)
" " full-name
" (" login-name "@" site-name ")\n\n"))
(forward-line 1)
(insert (current-time-string)
" " full-name
" (" login-name "@" site-name ")\n\n"))
;; Search only within the first paragraph.
(forward-paragraph 1)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment