From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 31 Jan 1994 16:41:12 +0000 (+0000)
Subject: (show-children): Don't call outline-level at eob.
X-Git-Tag: emacs-19.34~10140
X-Git-Url: https://code.delx.au/gnu-emacs/commitdiff_plain/babf687a8b9e48028be2a475ec6ea52c64a89090

(show-children): Don't call outline-level at eob.
---

diff --git a/lisp/textmodes/ooutline.el b/lisp/textmodes/ooutline.el
index c3f05af00b..207bffcdf7 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)