756 |
(insert Info-dir-contents) |
(insert Info-dir-contents) |
757 |
(goto-char (point-min))) |
(goto-char (point-min))) |
758 |
(let ((dirs (if Info-additional-directory-list |
(let ((dirs (if Info-additional-directory-list |
759 |
(append Info-directory-list |
(append Info-directory-list |
760 |
Info-additional-directory-list) |
Info-additional-directory-list) |
761 |
Info-directory-list)) |
Info-directory-list)) |
762 |
;; Bind this in case the user sets it to nil. |
;; Bind this in case the user sets it to nil. |
763 |
(case-fold-search t) |
(case-fold-search t) |
764 |
;; This is set non-nil if we find a problem in some input files. |
;; This is set non-nil if we find a problem in some input files. |