Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-23 21:37:34 +00:00
Code Issues Projects Releases Packages Wiki Activity

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

Browse source 
(outline-backward-same-level, outline-forward-same-level): Likewise.
This commit is contained in:
Richard M. Stallman 1996-06-20 19:22:11 +00:00
parent fb7741f544
commit 56ade26139
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/textmodes/outline.el
View file

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