From babf687a8b9e48028be2a475ec6ea52c64a89090 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 31 Jan 1994 16:41:12 +0000 Subject: [PATCH] (show-children): Don't call outline-level at eob. --- lisp/textmodes/ooutline.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/textmodes/ooutline.el b/lisp/textmodes/ooutline.el index c3f05af00bb..207bffcdf74 100644 --- a/lisp/textmodes/ooutline.el +++ b/lisp/textmodes/ooutline.el @@ -372,7 +372,9 @@ Default is enough to cause the following heading to appear." (beginning-of-line) (let ((start-level (funcall outline-level))) (outline-next-heading) - (max 1 (- (funcall outline-level) start-level)))))) + (if (eobp) + 1 + (max 1 (- (funcall outline-level) start-level))))))) (save-excursion (save-restriction (beginning-of-line) -- 2.39.5