diff options
| author | Roland McGrath | 1993-02-08 22:25:34 +0000 |
|---|---|---|
| committer | Roland McGrath | 1993-02-08 22:25:34 +0000 |
| commit | 74046d00de64e9bd86184610539b0c4c8254d09a (patch) | |
| tree | 10843d325ac515d3cbd622cafe94167ffdffb135 | |
| parent | bd3910fef239ce85f43dbf7e981b4f344a372c46 (diff) | |
| download | emacs-74046d00de64e9bd86184610539b0c4c8254d09a.tar.gz emacs-74046d00de64e9bd86184610539b0c4c8254d09a.zip | |
(add-change-log-entry): Undo Jan 25 change. It worked for buffers in
indented-text-mode, but lost for change-log-mode, which is what matters.
| -rw-r--r-- | lisp/add-log.el | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/lisp/add-log.el b/lisp/add-log.el index 0f4cc97347b..0348c0bd4b6 100644 --- a/lisp/add-log.el +++ b/lisp/add-log.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; add-log.el --- change log maintenance commands for Emacs | 1 | ;;; add-log.el --- change log maintenance commands for Emacs |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1985, 86, 87, 88, 89, 90, 91, 1992 | 3 | ;; Copyright (C) 1985, 86, 87, 88, 89, 90, 91, 1992, 1993 |
| 4 | ;; Free Software Foundation, Inc. | 4 | ;; Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; This file is part of GNU Emacs. | 6 | ;; This file is part of GNU Emacs. |
| @@ -112,14 +112,10 @@ Third arg OTHER-WINDOW non-nil means visit in other window." | |||
| 112 | " " full-name | 112 | " " full-name |
| 113 | " (" login-name "@" site-name ")\n\n")) | 113 | " (" login-name "@" site-name ")\n\n")) |
| 114 | 114 | ||
| 115 | ;; Search only within the first paragraph of the first page. | 115 | ;; Search only within the first paragraph. |
| 116 | (forward-paragraph 1) | 116 | (forward-paragraph 1) |
| 117 | (setq paragraph-end (point)) | 117 | (setq paragraph-end (point)) |
| 118 | (goto-char (point-min)) | 118 | (goto-char (point-min)) |
| 119 | (forward-page 1) | ||
| 120 | (if (< (point) paragraph-end) | ||
| 121 | (setq paragraph-end (point))) | ||
| 122 | (goto-char (point-min)) | ||
| 123 | 119 | ||
| 124 | ;; Now insert the new line for this entry. | 120 | ;; Now insert the new line for this entry. |
| 125 | (cond ((re-search-forward "^\\s *\\*\\s *$" paragraph-end t) | 121 | (cond ((re-search-forward "^\\s *\\*\\s *$" paragraph-end t) |