Mercurial > emacs

diff lisp/allout.el @ 7676:5b8a573e9f69

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(outline-chart-subtree): Include outline-next-heading in loop conditions to detect end-of-buffer (and avoid infinite loop).
author Richard M. Stallman <rms@gnu.org>
date Wed, 25 May 1994 04:41:21 +0000
parents 67b7d1ea7b2e
children bbfb197435e3
line wrap: on
line diff
--- a/lisp/allout.el	Wed May 25 04:36:48 1994 +0000
+++ b/lisp/allout.el	Wed May 25 04:41:21 1994 +0000
@@ -1453,9 +1453,9 @@
 			   (or (outline-next-sibling curr-depth)
 			       ;; or no more siblings - proceed to
 			       ;; next heading at lesser depth:
-			       (while (<= curr-depth
-					  (outline-recent-depth))
-				 (outline-next-heading)))
+			       (while (and (<= curr-depth
+					       (outline-recent-depth))
+					   (outline-next-heading))))
 			 (outline-next-heading)))
 
 		      ((and (< prev-depth curr-depth)