diff options
| author | Karl Heuer | 1997-12-07 21:49:09 +0000 |
|---|---|---|
| committer | Karl Heuer | 1997-12-07 21:49:09 +0000 |
| commit | 1122ecea8434625a0bedada7d0053b438a6b1381 (patch) | |
| tree | da1ff65dd2b420ebfb84532556fe6fe4f5784c02 | |
| parent | 7c82656b0871d47a482840073fe8724b722e68ea (diff) | |
| download | emacs-1122ecea8434625a0bedada7d0053b438a6b1381.tar.gz emacs-1122ecea8434625a0bedada7d0053b438a6b1381.zip | |
(outline-next-preface):
Don't try to move back if already at beginning of buffer.
| -rw-r--r-- | lisp/textmodes/outline.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/textmodes/outline.el b/lisp/textmodes/outline.el index 80c65a5301b..3debce3e189 100644 --- a/lisp/textmodes/outline.el +++ b/lisp/textmodes/outline.el | |||
| @@ -309,7 +309,7 @@ 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 () |