From c696ac76c05e557c820318c223f2a299b208dd03 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 15 Feb 1995 08:36:09 +0000 Subject: [PATCH] (Info-index): Bind Info-history, not Info-keep-history. --- lisp/info.el | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/info.el b/lisp/info.el index 7feaf6b1649..3a2d1f954c7 100644 --- 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\\* \\(.*\\\\)" 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