texinfo/emacs/info.el

66 (defvar Info-directory-list
72 	(source (expand-file-name "info/" source-directory))
73 	(sibling (if installation-directory
74 		     (expand-file-name "info/" installation-directory)))
88       (if (or (member alternative Info-default-directory-list)
94 		;; Use invocation-directory for Info only if we used it for
95 		;; exec-directory also.
96 		(not (string= exec-directory
98 						installation-directory)))))
99 	  Info-default-directory-list
101 		       (cdr (reverse Info-default-directory-list)))))))
104 variable INFOPATH to initialize it, or `Info-default-directory-list'
106 The last element of `Info-default-directory-list' is the directory
109 If you run the Emacs executable from the `src' directory in the Emacs
110 source tree, the `info' directory in the source tree is used as the last
111 element, in place of the installation Info directory.  This is useful
114 (defcustom Info-additional-directory-list nil
117   :type '(repeat directory)
123 It doesn't contain directory names or file name extensions added by Info.")
238 	      (default-directory (or (file-name-directory fullname)
239 				     default-directory)))
248 the default is the top-level directory of Info.
253 The search path for Info files is in the variable `Info-directory-list'.
254 The top-level Info directory is made by combining all the files named `dir'
262       (Info-directory))))
295 			  ;; then just try current directory.
301 			  (if Info-additional-directory-list
302 			      (append Info-directory-list
303 				      Info-additional-directory-list)
304 			    Info-directory-list)))))
305 	    ;; Search the directory list for file FILENAME.
352 		(setq default-directory (file-name-directory filename)))
447 ;; Cache for the directory we decided to use for the default-directory
449 (defvar Info-dir-contents-directory nil)
455 ;; Construct the Info directory node by merging the files named `dir'
457 ;; default-directory to the first directory we actually get any text
472     (let ((dirs Info-directory-list)
477       ;; Search the directory list for the directory file.
481 	      (member (directory-file-name truename) dirs-done)
497 			    (cons (directory-file-name truename)
502 			  (message "Composing main Info directory..."))
509 	  (or (cdr dirs) (setq Info-dir-contents-directory
510 			       (file-name-as-directory (car dirs))))
514 	  (error "Can't find the Info directory node"))
522       ;; already saved its default directory to use as the default
523       ;; directory for the whole concatenation.
590       (message "Composing main Info directory...done"))
592   (setq default-directory Info-dir-contents-directory))
906 (defun Info-directory ()
907   "Go to the Info directory node."
1622   (define-key Info-mode-map "d" 'Info-directory)
1752 \\[Info-directory]	Go to the Info directory node.