1578 |
;; also look for menu items in subsequent nodes as long as those |
;; also look for menu items in subsequent nodes as long as those |
1579 |
;; nodes' names match `Info-complete-next-re'. This feature is currently |
;; nodes' names match `Info-complete-next-re'. This feature is currently |
1580 |
;; only used for completion in Info-index. |
;; only used for completion in Info-index. |
1581 |
(with-current-buffer Info-complete-menu-buffer |
|
1582 |
|
;; Note that `Info-complete-menu-buffer' could be current already, |
1583 |
|
;; so we want to save point. |
1584 |
|
(save-excursion |
1585 |
|
(set-buffer Info-complete-menu-buffer) |
1586 |
(let ((completion-ignore-case t) |
(let ((completion-ignore-case t) |
1587 |
(case-fold-search t) |
(case-fold-search t) |
1588 |
(orignode Info-current-node) |
(orignode Info-current-node) |