Mercurial > emacs
comparison lisp/log-edit.el @ 77816:dc4ad0560c91
(log-edit-changelog-paragraph): Return point-max as the end of the
ChangeLog paragraph when it ends without a line termination.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 27 May 2007 23:17:32 +0000 |
| parents | e3694f1cb928 |
| children | 9355f9b7bbff 42755149d51d 648e6c714c7d |
comparison
equal
deleted
inserted
replaced
| 77815:ab566d842488 | 77816:dc4ad0560c91 |
|---|---|
| 536 (if (re-search-backward "^[ \t]*\n" nil 'or-to-limit) | 536 (if (re-search-backward "^[ \t]*\n" nil 'or-to-limit) |
| 537 (goto-char (match-end 0))) | 537 (goto-char (match-end 0))) |
| 538 (point)) | 538 (point)) |
| 539 (if (re-search-forward "^[ \t\n]*$" nil t) | 539 (if (re-search-forward "^[ \t\n]*$" nil t) |
| 540 (match-beginning 0) | 540 (match-beginning 0) |
| 541 (point))))) | 541 (point-max))))) |
| 542 | 542 |
| 543 (defun log-edit-changelog-subparagraph () | 543 (defun log-edit-changelog-subparagraph () |
| 544 "Return the bounds of the ChangeLog subparagraph containing point. | 544 "Return the bounds of the ChangeLog subparagraph containing point. |
| 545 A subparagraph is a block of non-blank lines beginning with an asterisk. | 545 A subparagraph is a block of non-blank lines beginning with an asterisk. |
| 546 If we are between sub-paragraphs, return the previous subparagraph." | 546 If we are between sub-paragraphs, return the previous subparagraph." |