[Emacs-diffs] Changes to emacs/lisp/add-log.el

[Chong Yidong]

Index: emacs/lisp/add-log.el
diff -c emacs/lisp/add-log.el:1.171 emacs/lisp/add-log.el:1.172
*** emacs/lisp/add-log.el:1.171 Thu Nov 10 12:36:52 2005
--- emacs/lisp/add-log.el       Thu Nov 17 16:30:52 2005
***************
*** 551,557 ****
          (forward-line 1)
        (insert (nth (random (length new-entries))
                     new-entries)
!               "\n\n")
        (forward-line -1)))
  
      ;; Determine where we should stop searching for a usable
--- 551,557 ----
          (forward-line 1)
        (insert (nth (random (length new-entries))
                     new-entries)
!               hard-newline hard-newline)
        (forward-line -1)))
  
      ;; Determine where we should stop searching for a usable
***************
*** 584,590 ****
           ;; Delete excess empty lines; make just 2.
           (while (and (not (eobp)) (looking-at "^\\s *$"))
             (delete-region (point) (line-beginning-position 2)))
!          (insert-char ?\n 2)
           (forward-line -2)
           (indent-relative-maybe))
          (t
--- 584,590 ----
           ;; 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)
           (forward-line -2)
           (indent-relative-maybe))
          (t
***************
*** 593,599 ****
             (forward-line 1))
           (while (and (not (eobp)) (looking-at "^\\s *$"))
             (delete-region (point) (line-beginning-position 2)))
!          (insert-char ?\n 3)
           (forward-line -2)
           (indent-to left-margin)
           (insert "* ")
--- 593,599 ----
             (forward-line 1))
           (while (and (not (eobp)) (looking-at "^\\s *$"))
             (delete-region (point) (line-beginning-position 2)))
!          (insert hard-newline hard-newline hard-newline)
           (forward-line -2)
           (indent-to left-margin)
           (insert "* ")
***************
*** 1066,1072 ****
                        (and (= ?\n (char-before))
                             (or (<= (1- (point)) (point-min))
                                 (= ?\n (char-before (1- (point)))))))
!             (insert "\n"))
            ;; Move to the end of it to terminate outer loop.
            (with-current-buffer other-buf
              (goto-char (point-max)))
--- 1066,1072 ----
                        (and (= ?\n (char-before))
                             (or (<= (1- (point)) (point-min))
                                 (= ?\n (char-before (1- (point)))))))
!             (insert hard-newline))
            ;; Move to the end of it to terminate outer loop.
            (with-current-buffer other-buf
              (goto-char (point-max)))