Mercurial > emacs
comparison lisp/textmodes/outline.el @ 15466:5affe3230dfb
(outline-up-heading): Fix error message.
(outline-backward-same-level, outline-forward-same-level): Likewise.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 20 Jun 1996 19:22:11 +0000 |
| parents | 83f275dcd93a |
| children | d01e58c9e431 |
comparison
equal
deleted
inserted
replaced
| 15465:d2efb8b0d453 | 15466:5affe3230dfb |
|---|---|
| 578 "Move to the heading line of which the present line is a subheading. | 578 "Move to the heading line of which the present line is a subheading. |
| 579 With argument, move up ARG levels." | 579 With argument, move up ARG levels." |
| 580 (interactive "p") | 580 (interactive "p") |
| 581 (outline-back-to-heading) | 581 (outline-back-to-heading) |
| 582 (if (eq (funcall outline-level) 1) | 582 (if (eq (funcall outline-level) 1) |
| 583 (error "")) | 583 (error "Already at top level of the outline")) |
| 584 (while (and (> (funcall outline-level) 1) | 584 (while (and (> (funcall outline-level) 1) |
| 585 (> arg 0) | 585 (> arg 0) |
| 586 (not (bobp))) | 586 (not (bobp))) |
| 587 (let ((present-level (funcall outline-level))) | 587 (let ((present-level (funcall outline-level))) |
| 588 (while (not (< (funcall outline-level) present-level)) | 588 (while (not (< (funcall outline-level) present-level)) |
| 601 (progn | 601 (progn |
| 602 (goto-char point-to-move-to) | 602 (goto-char point-to-move-to) |
| 603 (setq arg (1- arg))) | 603 (setq arg (1- arg))) |
| 604 (progn | 604 (progn |
| 605 (setq arg 0) | 605 (setq arg 0) |
| 606 (error "")))))) | 606 (error "No following same-level heading")))))) |
| 607 | 607 |
| 608 (defun outline-get-next-sibling () | 608 (defun outline-get-next-sibling () |
| 609 "Move to next heading of the same level, and return point or nil if none." | 609 "Move to next heading of the same level, and return point or nil if none." |
| 610 (let ((level (funcall outline-level))) | 610 (let ((level (funcall outline-level))) |
| 611 (outline-next-visible-heading 1) | 611 (outline-next-visible-heading 1) |
| 628 (progn | 628 (progn |
| 629 (goto-char point-to-move-to) | 629 (goto-char point-to-move-to) |
| 630 (setq arg (1- arg))) | 630 (setq arg (1- arg))) |
| 631 (progn | 631 (progn |
| 632 (setq arg 0) | 632 (setq arg 0) |
| 633 (error "")))))) | 633 (error "No previous same-level heading")))))) |
| 634 | 634 |
| 635 (defun outline-get-last-sibling () | 635 (defun outline-get-last-sibling () |
| 636 "Move to next heading of the same level, and return point or nil if none." | 636 "Move to next heading of the same level, and return point or nil if none." |
| 637 (let ((level (funcall outline-level))) | 637 (let ((level (funcall outline-level))) |
| 638 (outline-previous-visible-heading 1) | 638 (outline-previous-visible-heading 1) |