comparison lisp/info.el @ 25811:c3cb1d841464

(info-initialize): Don't test existence of ALTERNATIVE if we know for some other reason it should not be used.

25810:f1417ed050c0

		  ;; Uninstalled, Emacs builddir != srcdir.
		  (setq alternative sibling)
		;; Uninstalled, builddir == srcdir
		(setq alternative source))
	      (if (or (member alternative Info-default-directory-list)
		      (not (file-exists-p alternative))
		      ;; On DOS/NT, we use movable executables always,
		      ;; and we must always find the Info dir at run time.
		      (if (memq system-type '(ms-dos windows-nt))
			  nil
			;; Use invocation-directory for Info
			;; only if we used it for exec-directory also.
			(not (string= exec-directory
				      (expand-file-name "lib-src/"
							installation-directory)))))
		  Info-default-directory-list
		;; `alternative' contains the Info files that came with this
		;; version, so we should look there first.  `Info-insert-dir'
		;; currently expects to find `alternative' first on the list.
		(cons alternative

25811:c3cb1d841464

		  ;; Uninstalled, Emacs builddir != srcdir.
		  (setq alternative sibling)
		;; Uninstalled, builddir == srcdir
		(setq alternative source))
	      (if (or (member alternative Info-default-directory-list)
		      ;; On DOS/NT, we use movable executables always,
		      ;; and we must always find the Info dir at run time.
		      (if (memq system-type '(ms-dos windows-nt))
			  nil
			;; Use invocation-directory for Info
			;; only if we used it for exec-directory also.
			(not (string= exec-directory
				      (expand-file-name "lib-src/"
							installation-directory))))
		      (not (file-exists-p alternative)))
		  Info-default-directory-list
		;; `alternative' contains the Info files that came with this
		;; version, so we should look there first.  `Info-insert-dir'
		;; currently expects to find `alternative' first on the list.
		(cons alternative