diff options
| author | Richard M. Stallman | 1994-07-06 20:12:42 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-07-06 20:12:42 +0000 |
| commit | f4136d9c7842bbcc52b4d2e78dd81d9b61984622 (patch) | |
| tree | 8272a636e70bcd77a82df4d960810c12b2c65470 | |
| parent | e36d00d496352d9d317fcf621015ea20268c4824 (diff) | |
| download | emacs-f4136d9c7842bbcc52b4d2e78dd81d9b61984622.tar.gz emacs-f4136d9c7842bbcc52b4d2e78dd81d9b61984622.zip | |
(outline-next-preface): Undo previous change: do stop before final newline.
| -rw-r--r-- | lisp/textmodes/ooutline.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/textmodes/ooutline.el b/lisp/textmodes/ooutline.el index 0c60cfe30bd..372ac1418d8 100644 --- a/lisp/textmodes/ooutline.el +++ b/lisp/textmodes/ooutline.el | |||
| @@ -237,13 +237,14 @@ the number of characters that `outline-regexp' matches." | |||
| 237 | (- (match-end 0) (match-beginning 0)))) | 237 | (- (match-end 0) (match-beginning 0)))) |
| 238 | 238 | ||
| 239 | (defun outline-next-preface () | 239 | (defun outline-next-preface () |
| 240 | "Skip forward to just before the next heading line." | 240 | "Skip forward to just before the next heading line. |
| 241 | If there's no following heading line, stop before the newline | ||
| 242 | at the end of the buffer." | ||
| 241 | (if (re-search-forward (concat "[\n\^M]\\(" outline-regexp "\\)") | 243 | (if (re-search-forward (concat "[\n\^M]\\(" outline-regexp "\\)") |
| 242 | nil 'move) | 244 | nil 'move) |
| 243 | (progn | 245 | (goto-char (match-beginning 0))) |
| 244 | (goto-char (match-beginning 0)) | 246 | (if (memq (preceding-char) '(?\n ?\^M)) |
| 245 | (if (memq (preceding-char) '(?\n ?\^M)) | 247 | (forward-char -1))) |
| 246 | (forward-char -1))))) | ||
| 247 | 248 | ||
| 248 | (defun outline-next-heading () | 249 | (defun outline-next-heading () |
| 249 | "Move to the next (possibly invisible) heading line." | 250 | "Move to the next (possibly invisible) heading line." |