(outline-chart-subtree): Include outline-next-heading in loop conditions

to detect end-of-buffer (and avoid infinite loop).

(outline-chart-subtree): Include outline-next-heading in loop conditions
to detect end-of-buffer (and avoid infinite loop).
e6a9aec7 · Richard M. Stallman · 92bab011 · e6a9aec7
Commit e6a9aec7 authored May 25, 1994 by Richard M. Stallman
Show whitespace changes
Inline Side-by-side

Showing with 3 additions and 3 deletions

lisp/allout.el lisp/allout.el +3 -3

No files found.
--- a/lisp/allout.el
+++ b/lisp/allout.el
@@ -1453,9 +1453,9 @@ starting point, and PREV-DEPTH is depth of prior topic."
 			   (or (outline-next-sibling curr-depth)
 			       ;; or no more siblings - proceed to
 			       ;; next heading at lesser depth:
-			       (while (<= curr-depth
+			       (while (and (<= curr-depth
 					       (outline-recent-depth))
-				 (outline-next-heading)))
+					   (outline-next-heading))))
 			 (outline-next-heading)))

 		      ((and (< prev-depth curr-depth)