# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1210537905 0
# Node ID 9ba92386b1f2ce8c4be1fa785fa40b64fcafcf9a
# Parent  c8e2322a0865c512da96ee506d9507a82331e9ed
(Info-next-preorder): Let-bind `Info-history' to nil
before recursive call to `Info-next-preorder' to not add
intermediate nodes to the history.

diff -r c8e2322a0865 -r 9ba92386b1f2 lisp/info.el
--- a/lisp/info.el	Sun May 11 20:31:18 2008 +0000
+++ b/lisp/info.el	Sun May 11 20:31:45 2008 +0000
@@ -2526,8 +2526,10 @@
 	 ;; go up to the end of this node.
 	 (goto-char (point-max))
 	 ;; Since logically we are done with the node with that menu,
-	 ;; move on from it.
-	 (Info-next-preorder))
+	 ;; move on from it.  But don't add intermediate nodes
+	 ;; to the history on recursive calls.
+	 (let (Info-history)
+	   (Info-next-preorder)))
 	(t
 	 (error "No more nodes"))))