mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(add-change-log-entry): Undo Jan 25 change. It worked for buffers in

Browse Source 
indented-text-mode, but lost for change-log-mode, which is what matters.
This commit is contained in:
Roland McGrath 1993-02-08 22:25:34 +00:00
parent bd3910fef2
commit 74046d00de
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/add-log.el
View File

@ -1,6 +1,6 @@
;;; add-log.el --- change log maintenance commands for Emacs
;; Copyright (C) 1985, 86, 87, 88, 89, 90, 91, 1992
;; Copyright (C) 1985, 86, 87, 88, 89, 90, 91, 1992, 1993
;; Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
@ -112,14 +112,10 @@ Third arg OTHER-WINDOW non-nil means visit in other window."
" " full-name
" (" login-name "@" site-name ")\n\n"))
;; Search only within the first paragraph of the first page.
;; Search only within the first paragraph.
(forward-paragraph 1)
(setq paragraph-end (point))
(goto-char (point-min))
(forward-page 1)
(if (< (point) paragraph-end)
(setq paragraph-end (point)))
(goto-char (point-min))
;; Now insert the new line for this entry.
(cond ((re-search-forward "^\\s *\\*\\s *$" paragraph-end t)