# HG changeset patch
# User Sam Steingold <sds@gnu.org>
# Date 1004032153 0
# Node ID e41eca24ba8cce8d19e378b526cf62aff3e39d45
# Parent  58305bceda4879a7f6cdd300a84c7cc24dea4d3f
(add-log-always-start-new-record): New user option.

diff -r 58305bceda48 -r e41eca24ba8c lisp/ChangeLog
--- 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
diff -r 58305bceda48 -r e41eca24ba8c lisp/add-log.el
--- 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)))