# HG changeset patch
# User Romain Francoise <romain@orebokech.com>
# Date 1137183095 0
# Node ID faf3f34b2d1c663fbbb96b0e915b1e3f2879118c
# Parent  43a16bd436264573ada5342e3eb3ab3fe5221edf
(add-change-log-entry, change-log-merge):
Conditionally use `hard-newline'.

diff -r 43a16bd43626 -r faf3f34b2d1c lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Jan 13 19:56:54 2006 +0000
+++ b/lisp/ChangeLog	Fri Jan 13 20:11:35 2006 +0000
@@ -1,3 +1,8 @@
+2006-01-13  Romain Francoise  <romain@orebokech.com>
+
+	* add-log.el (add-change-log-entry, change-log-merge):
+	Conditionally use `hard-newline'.
+
 2006-01-13  Martin Rudalics  <rudalics@gmx.at>  (tiny change)
 
 	* wid-edit.el (widget-field-end): If the overlay is no longer
diff -r 43a16bd43626 -r faf3f34b2d1c lisp/add-log.el
--- a/lisp/add-log.el	Fri Jan 13 19:56:54 2006 +0000
+++ b/lisp/add-log.el	Fri Jan 13 20:11:35 2006 +0000
@@ -1,7 +1,7 @@
 ;;; add-log.el --- change log maintenance commands for Emacs
 
 ;; Copyright (C) 1985, 1986, 1988, 1993, 1994, 1997, 1998, 2000, 2002,
-;;   2003, 2004, 2005 Free Software Foundation, Inc.
+;;   2003, 2004, 2005, 2006 Free Software Foundation, Inc.
 
 ;; Maintainer: FSF
 ;; Keywords: tools
@@ -551,7 +551,8 @@
 	  (forward-line 1)
 	(insert (nth (random (length new-entries))
 		     new-entries)
-		hard-newline hard-newline)
+		(if use-hard-newlines hard-newline "\n")
+		(if use-hard-newlines hard-newline "\n"))
 	(forward-line -1)))
 
     ;; Determine where we should stop searching for a usable
@@ -584,7 +585,8 @@
 	   ;; Delete excess empty lines; make just 2.
 	   (while (and (not (eobp)) (looking-at "^\\s *$"))
 	     (delete-region (point) (line-beginning-position 2)))
-	   (insert hard-newline hard-newline)
+	   (insert (if use-hard-newlines hard-newline "\n")
+		   (if use-hard-newlines hard-newline "\n"))
 	   (forward-line -2)
 	   (indent-relative-maybe))
 	  (t
@@ -593,7 +595,9 @@
 	     (forward-line 1))
 	   (while (and (not (eobp)) (looking-at "^\\s *$"))
 	     (delete-region (point) (line-beginning-position 2)))
-	   (insert hard-newline hard-newline hard-newline)
+	   (insert (if use-hard-newlines hard-newline "\n")
+		   (if use-hard-newlines hard-newline "\n")
+		   (if use-hard-newlines hard-newline "\n"))
 	   (forward-line -2)
 	   (indent-to left-margin)
 	   (insert "* ")
@@ -1066,7 +1070,7 @@
 			(and (= ?\n (char-before))
 			     (or (<= (1- (point)) (point-min))
 				 (= ?\n (char-before (1- (point)))))))
-	      (insert hard-newline))
+	      (insert (if use-hard-newlines hard-newline "\n")))
 	    ;; Move to the end of it to terminate outer loop.
 	    (with-current-buffer other-buf
 	      (goto-char (point-max)))