1831 |
(or (re-search-forward "\n\\* \\(.*\\<Index\\>\\)" nil t) |
(or (re-search-forward "\n\\* \\(.*\\<Index\\>\\)" nil t) |
1832 |
(error "No index")) |
(error "No index")) |
1833 |
(goto-char (match-beginning 1)) |
(goto-char (match-beginning 1)) |
1834 |
(Info-goto-node (Info-extract-menu-node-name))) |
;; Protect Info-history so that the current node (Top) is not added to it. |
1835 |
|
(let ((Info-history nil)) |
1836 |
|
(Info-goto-node (Info-extract-menu-node-name)))) |
1837 |
|
|
1838 |
(defun Info-index (topic) |
(defun Info-index (topic) |
1839 |
"Look up a string TOPIC in the index for this file. |
"Look up a string TOPIC in the index for this file. |
1859 |
(regexp-quote topic))) |
(regexp-quote topic))) |
1860 |
node |
node |
1861 |
(case-fold-search t)) |
(case-fold-search t)) |
1862 |
;; Here, and subsequently in this function, |
(Info-goto-index) |
|
;; 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-index)) |
|
1863 |
(or (equal topic "") |
(or (equal topic "") |
1864 |
(let ((matches nil) |
(let ((matches nil) |
1865 |
(exact nil) |
(exact nil) |
1866 |
|
;; We bind Info-history to nil for internal node-switches so |
1867 |
|
;; that we don't put junk in the history. In the first |
1868 |
|
;; Info-goto-index call, above, we do update the history |
1869 |
|
;; because that is what the user's previous node choice into it. |
1870 |
(Info-history nil) |
(Info-history nil) |
1871 |
found) |
found) |
1872 |
(while |
(while |