diff options
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/add-log.el | 15 |
2 files changed, 18 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b5c2b99c03e..f9f6d35650a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -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 diff --git a/lisp/add-log.el b/lisp/add-log.el index 1d175ffe4a3..029c1797988 100644 --- a/lisp/add-log.el +++ b/lisp/add-log.el @@ -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))) |