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

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)))