Mercurial > emacs
comparison lisp/textmodes/outline.el @ 19959:d6e501bdc16a
(outline-up-heading): Avoid infinite loop at beginning of buffer.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 20 Sep 1997 00:32:30 +0000 |
| parents | 170b16201f82 |
| children | bf3f4dc09cc0 |
comparison
equal
deleted
inserted
replaced
| 19958:f7ab34ae92bb | 19959:d6e501bdc16a |
|---|---|
| 618 (error "Already at top level of the outline")) | 618 (error "Already at top level of the outline")) |
| 619 (while (and (> (funcall outline-level) 1) | 619 (while (and (> (funcall outline-level) 1) |
| 620 (> arg 0) | 620 (> arg 0) |
| 621 (not (bobp))) | 621 (not (bobp))) |
| 622 (let ((present-level (funcall outline-level))) | 622 (let ((present-level (funcall outline-level))) |
| 623 (while (not (< (funcall outline-level) present-level)) | 623 (while (and (not (< (funcall outline-level) present-level)) |
| 624 (not (bobp))) | |
| 624 (outline-previous-visible-heading 1)) | 625 (outline-previous-visible-heading 1)) |
| 625 (setq arg (- arg 1))))) | 626 (setq arg (- arg 1))))) |
| 626 | 627 |
| 627 (defun outline-forward-same-level (arg) | 628 (defun outline-forward-same-level (arg) |
| 628 "Move forward to the ARG'th subheading at same level as this one. | 629 "Move forward to the ARG'th subheading at same level as this one. |