Mercurial > emacs
comparison lisp/textmodes/outline.el @ 20426:f3debcf1d078
(outline-next-preface):
Don't try to move back if already at beginning of buffer.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Sun, 07 Dec 1997 21:49:09 +0000 |
| parents | ea977d99058b |
| children | f3f9df46d008 |
comparison
equal
deleted
inserted
replaced
| 20425:6bbf4a411f07 | 20426:f3debcf1d078 |
|---|---|
| 307 If there's no following heading line, stop before the newline | 307 If there's no following heading line, stop before the newline |
| 308 at the end of the buffer." | 308 at the end of the buffer." |
| 309 (if (re-search-forward (concat "\n\\(" outline-regexp "\\)") | 309 (if (re-search-forward (concat "\n\\(" outline-regexp "\\)") |
| 310 nil 'move) | 310 nil 'move) |
| 311 (goto-char (match-beginning 0))) | 311 (goto-char (match-beginning 0))) |
| 312 (if (bolp) | 312 (if (and (bolp) (not (bobp))) |
| 313 (forward-char -1))) | 313 (forward-char -1))) |
| 314 | 314 |
| 315 (defun outline-next-heading () | 315 (defun outline-next-heading () |
| 316 "Move to the next (possibly invisible) heading line." | 316 "Move to the next (possibly invisible) heading line." |
| 317 (interactive) | 317 (interactive) |