# HG changeset patch # User Richard M. Stallman # Date 760751409 0 # Node ID c23afcf4e954050c5b148620d19d2f07a6ad3988 # Parent 9d1ae808403b7aca2d2a97bc22bfc606d3215959 (show-children): Don't narrow to (1+ (point-max)) when exposing the last level-n header in the buffer. diff -r 9d1ae808403b -r c23afcf4e954 lisp/textmodes/ooutline.el --- a/lisp/textmodes/ooutline.el Tue Feb 08 23:03:09 1994 +0000 +++ b/lisp/textmodes/ooutline.el Tue Feb 08 23:50:09 1994 +0000 @@ -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 @@ (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