Commit c696ac76 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent 9685a93f
...@@ -1210,12 +1210,17 @@ Give a blank topic name to go to the Index node itself." ...@@ -1210,12 +1210,17 @@ Give a blank topic name to go to the Index node itself."
(or (re-search-forward "\n\\* \\(.*\\<Index\\>\\)" nil t) (or (re-search-forward "\n\\* \\(.*\\<Index\\>\\)" nil t)
(error "No index")) (error "No index"))
(goto-char (match-beginning 1)) (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))) (Info-goto-node (Info-extract-menu-node-name)))
(or (equal topic "") (or (equal topic "")
(let ((matches nil) (let ((matches nil)
(exact nil) (exact nil)
(Info-keeping-history nil) (Info-history nil)
found) found)
(while (while
(progn (progn
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment