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." ...@@ -580,7 +580,7 @@ With argument, move up ARG levels."
(interactive "p") (interactive "p")
(outline-back-to-heading) (outline-back-to-heading)
(if (eq (funcall outline-level) 1) (if (eq (funcall outline-level) 1)
(error "")) (error "Already at top level of the outline"))
(while (and (> (funcall outline-level) 1) (while (and (> (funcall outline-level) 1)
(> arg 0) (> arg 0)
(not (bobp))) (not (bobp)))
...@@ -603,7 +603,7 @@ Stop at the first and last subheadings of a superior heading." ...@@ -603,7 +603,7 @@ Stop at the first and last subheadings of a superior heading."
(setq arg (1- arg))) (setq arg (1- arg)))
(progn (progn
(setq arg 0) (setq arg 0)
(error "")))))) (error "No following same-level heading"))))))
(defun outline-get-next-sibling () (defun outline-get-next-sibling ()
"Move to next heading of the same level, and return point or nil if none." "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,7 +630,7 @@ Stop at the first and last subheadings of a superior heading."
(setq arg (1- arg))) (setq arg (1- arg)))
(progn (progn
(setq arg 0) (setq arg 0)
(error "")))))) (error "No previous same-level heading"))))))
(defun outline-get-last-sibling () (defun outline-get-last-sibling ()
"Move to next heading of the same level, and return point or nil if none." "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