martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 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
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."