(Info-index): Bind Info-history, not Info-keep-history.

diff --git a/lisp/info.el b/lisp/info.el
index 7feaf6b1649990028911a1a91ae563868736fa7d..3a2d1f954c7b4128015ba18f2fd916a3c91e0f7f 100644 (file)
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -1210,12 +1210,17 @@ Give a blank topic name to go to the Index node itself."
     (or (re-search-forward "\n\\* \\(.*\\<Index\\>\\)" nil t)
        (error "No index"))
     (goto-char (match-beginning 1))
-    (let ((Info-keeping-history nil))
+    ;; Here, and subsequently in this function,
+    ;; we bind Info-history to nil for internal node-switches
+    ;; so that we don't put junk in the history.
+    ;; In the first Info-goto-node call, above, we do update the history
+    ;; because that is what the user's previous node choice into it.
+    (let ((Info-history nil))
       (Info-goto-node (Info-extract-menu-node-name)))
     (or (equal topic "")
        (let ((matches nil)
              (exact nil)
-             (Info-keeping-history nil)
+             (Info-history nil)
              found)
          (while
              (progn