Changeset 4018 for vendor/emacs-CVS_HEAD/lisp/add-log.el
- Timestamp:
- 01/28/06 09:46:44 (3 years ago)
- Files:
-
- vendor/emacs-CVS_HEAD/lisp/add-log.el (modified) (5 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
vendor/emacs-CVS_HEAD/lisp/add-log.el
r3988 r4018 2 2 3 3 ;; Copyright (C) 1985, 1986, 1988, 1993, 1994, 1997, 1998, 2000, 2002, 4 ;; 2003, 2004, 2005 Free Software Foundation, Inc.4 ;; 2003, 2004, 2005, 2006 Free Software Foundation, Inc. 5 5 6 6 ;; Maintainer: FSF … … 552 552 (insert (nth (random (length new-entries)) 553 553 new-entries) 554 hard-newline hard-newline) 554 (if use-hard-newlines hard-newline "\n") 555 (if use-hard-newlines hard-newline "\n")) 555 556 (forward-line -1))) 556 557 … … 585 586 (while (and (not (eobp)) (looking-at "^\\s *$")) 586 587 (delete-region (point) (line-beginning-position 2))) 587 (insert hard-newline hard-newline) 588 (insert (if use-hard-newlines hard-newline "\n") 589 (if use-hard-newlines hard-newline "\n")) 588 590 (forward-line -2) 589 591 (indent-relative-maybe)) … … 594 596 (while (and (not (eobp)) (looking-at "^\\s *$")) 595 597 (delete-region (point) (line-beginning-position 2))) 596 (insert hard-newline hard-newline hard-newline) 598 (insert (if use-hard-newlines hard-newline "\n") 599 (if use-hard-newlines hard-newline "\n") 600 (if use-hard-newlines hard-newline "\n")) 597 601 (forward-line -2) 598 602 (indent-to left-margin) … … 1067 1071 (or (<= (1- (point)) (point-min)) 1068 1072 (= ?\n (char-before (1- (point))))))) 1069 (insert hard-newline))1073 (insert (if use-hard-newlines hard-newline "\n"))) 1070 1074 ;; Move to the end of it to terminate outer loop. 1071 1075 (with-current-buffer other-buf
