[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/add-log.el
From: |
Romain Francoise |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/add-log.el |
Date: |
Fri, 13 Jan 2006 20:11:36 +0000 |
Index: emacs/lisp/add-log.el
diff -u emacs/lisp/add-log.el:1.172 emacs/lisp/add-log.el:1.173
--- emacs/lisp/add-log.el:1.172 Thu Nov 17 16:30:52 2005
+++ emacs/lisp/add-log.el Fri Jan 13 20:11:35 2006
@@ -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)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/add-log.el,
Romain Francoise <=