diff options
| author | Richard M. Stallman | 1996-06-20 19:22:11 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-06-20 19:22:11 +0000 |
| commit | 56ade261394e9c987a316286dae656d25dd28e67 (patch) | |
| tree | 705506cc55498bacbaa6a5e23a0b998ce50b8d4c /lisp/textmodes | |
| parent | fb7741f544e0cc7196263e08e36afcafef859482 (diff) | |
| download | emacs-56ade261394e9c987a316286dae656d25dd28e67.tar.gz emacs-56ade261394e9c987a316286dae656d25dd28e67.zip | |
(outline-up-heading): Fix error message.
(outline-backward-same-level, outline-forward-same-level): Likewise.
Diffstat (limited to 'lisp/textmodes')
| -rw-r--r-- | lisp/textmodes/outline.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/textmodes/outline.el b/lisp/textmodes/outline.el index 6992b4380ce..cb5f2daa211 100644 --- a/lisp/textmodes/outline.el +++ b/lisp/textmodes/outline.el | |||
| @@ -580,7 +580,7 @@ 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))) |
| @@ -603,7 +603,7 @@ Stop at the first and last subheadings of a superior heading." | |||
| 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." |
| @@ -630,7 +630,7 @@ Stop at the first and last subheadings of a superior heading." | |||
| 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." |