diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-06-20 19:22:11 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-06-20 19:22:11 +0000 |
| commit | 56ade261394e9c987a316286dae656d25dd28e67 (patch) | |
| tree | 705506cc55498bacbaa6a5e23a0b998ce50b8d4c /lisp | |
| parent | fb7741f544e0cc7196263e08e36afcafef859482 (diff) | |
| download | emacs-56ade261394e9c987a316286dae656d25dd28e67.tar.gz | |
(outline-up-heading): Fix error message.
(outline-backward-same-level, outline-forward-same-level): Likewise.
Diffstat (limited to 'lisp')
| -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." (interactive "p") (outline-back-to-heading) (if (eq (funcall outline-level) 1) - (error "")) + (error "Already at top level of the outline")) (while (and (> (funcall outline-level) 1) (> arg 0) (not (bobp))) @@ -603,7 +603,7 @@ Stop at the first and last subheadings of a superior heading." (setq arg (1- arg))) (progn (setq arg 0) - (error "")))))) + (error "No following same-level heading")))))) (defun outline-get-next-sibling () "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." (setq arg (1- arg))) (progn (setq arg 0) - (error "")))))) + (error "No previous same-level heading")))))) (defun outline-get-last-sibling () "Move to next heading of the same level, and return point or nil if none." |