Mercurial > emacs
changeset 1956:02bb7721b67c
(add-change-log-entry): Find end of first paragraph from after the header line.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 25 Feb 1993 20:23:59 +0000 |
| parents | 8ac912d2d369 |
| children | 54c8c66cd9ac |
| files | lisp/add-log.el |
| diffstat | 1 files changed, 6 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/add-log.el Thu Feb 25 06:39:57 1993 +0000 +++ b/lisp/add-log.el Thu Feb 25 20:23:59 1993 +0000 @@ -1,7 +1,6 @@ ;;; 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 @@ (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)