changeset 5711:6f772d7f1289

(show-children): Don't call outline-level at eob.
author Richard M. Stallman <rms@gnu.org>
date Mon, 31 Jan 1994 16:41:12 +0000
parents fc9ed3368ecc
children 6a26b8998df1
files lisp/textmodes/ooutline.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/textmodes/ooutline.el	Mon Jan 31 16:16:05 1994 +0000
+++ b/lisp/textmodes/ooutline.el	Mon Jan 31 16:41:12 1994 +0000
@@ -372,7 +372,9 @@
 	    (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)