From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 8 Feb 1994 23:50:09 +0000 (+0000)
Subject: (show-children): Don't narrow to (1+ (point-max)) when
X-Git-Tag: emacs-19.34~9996
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3fa26c50017933e3104e965999b5423c038a4e39;p=emacs.git

(show-children): Don't narrow to (1+ (point-max)) when
exposing the last level-n header in the buffer.
---

diff --git a/lisp/textmodes/ooutline.el b/lisp/textmodes/ooutline.el
index efd49c9f41a..7d21c98ea88 100644
--- a/lisp/textmodes/ooutline.el
+++ b/lisp/textmodes/ooutline.el
@@ -2,6 +2,10 @@
 
 ;; Copyright (C) 1986, 1993 Free Software Foundation, Inc.
 
+;; 7-Feb-94	Kevin Broadey
+;; Fix show-children so it doesn't try to narrow to (1+ (point-max)) when
+;; exposing the last level-n header in the buffer.
+;;
 ;; Maintainer: FSF
 
 ;; This file is part of GNU Emacs.
@@ -384,7 +388,8 @@ Default is enough to cause the following heading to appear."
     (beginning-of-line)
     (setq level (+ level (funcall outline-level)))
     (narrow-to-region (point)
-		      (progn (outline-end-of-subtree) (1+ (point))))
+		      (progn (outline-end-of-subtree)
+			     (if (eobp) (point-max) (1+ (point)))))
     (goto-char (point-min))
     (while (and (not (eobp))
 		(progn