(outline-up-heading): Fix error message.

(outline-backward-same-level, outline-forward-same-level): Likewise.

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."