Commit 56ade261 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

(outline-backward-same-level, outline-forward-same-level): Likewise.
parent fb7741f5
......@@ -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."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment