Mercurial > emacs
changeset 40315:e41eca24ba8c
(add-log-always-start-new-record): New user option.
| author | Sam Steingold <sds@gnu.org> |
|---|---|
| date | Thu, 25 Oct 2001 17:49:13 +0000 |
| parents | 58305bceda48 |
| children | ddce8f484e75 |
| files | lisp/ChangeLog lisp/add-log.el |
| diffstat | 2 files changed, 18 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Thu Oct 25 15:44:43 2001 +0000 +++ b/lisp/ChangeLog Thu Oct 25 17:49:13 2001 +0000 @@ -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
--- a/lisp/add-log.el Thu Oct 25 15:44:43 2001 +0000 +++ b/lisp/add-log.el Thu Oct 25 17:49:13 2001 +0000 @@ -117,6 +117,12 @@ :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 @@ "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 @@ 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 @@ (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)))