mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-11 16:08:13 +00:00
Code Issues Releases Activity

(add-log-always-start-new-record): New user option.

Browse Source
This commit is contained in:
Sam Steingold 2001-10-25 17:49:13 +00:00
parent 75700ff269
commit 598f34fa52
2 changed files with 18 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2001-10-25 Sam Steingold <sds@gnu.org>
* add-log.el (add-log-always-start-new-record): New user option.
(add-change-log-entry): Use it.
2001-10-25 Richard M. Stallman <rms@gnu.org>
* progmodes/etags.el (tags-query-replace): Make tags-loop-scan

15
lisp/add-log.el
View File

@ -117,6 +117,12 @@ this variable."
:type 'boolean
:group 'change-log)
(defcustom add-log-always-start-new-record nil
"*If non-nil, `add-change-log-entry' will always start a new record."
:version "21.2"
:type 'boolean
:group 'change-log)
(defcustom add-log-buffer-file-name-function nil
"*If non-nil, function to call to identify the full filename of a buffer.
This function is called with no argument. If this is nil, the default is to
@ -182,7 +188,7 @@ Note: The search is conducted only within 10%, at the beginning of the file."
"Face for highlighting parenthesized lists of functions or variables."
:version "21.1"
:group 'change-log)
(defface change-log-conditionals-face
'((t (:inherit font-lock-variable-name-face)))
"Face for highlighting conditionals of the form `[...]'."
@ -415,6 +421,10 @@ Fourth arg NEW-ENTRY non-nil means always create a new entry at the front;
never append to an existing entry. Option `add-log-keep-changes-together'
otherwise affects whether a new entry is created.
Option `add-log-always-start-new-record' non-nil means always create a
new record, even when the last record was made on the same date and by
the same person.
The change log file can start with a copyright notice and a copying
permission notice. The first blank line indicates the end of these
notices.
@ -469,7 +479,8 @@ non-nil, otherwise in local time."
(let ((new-entry (concat (funcall add-log-time-format)
" " add-log-full-name
" <" add-log-mailing-address ">")))
(if (looking-at (regexp-quote new-entry))
(if (and (not add-log-always-start-new-record)
(looking-at (regexp-quote new-entry)))
(forward-line 1)
(insert new-entry "\n\n")
(forward-line -1)))