- "emacs/" "lib/" "lib/emacs/")))
- (nconc
- (apply #'nconc
- (mapcar (lambda (pfx)
- (let ((dirs
- (mapcar (lambda (sfx) (concat pfx sfx "info/"))
- suffixes)))
- (if (member pfx unpruned-prefixes)
- dirs
- (prune-directory-list dirs config))))
- prefixes))
- config))
+ "emacs/" "lib/" "lib/emacs/"))
+ (standard-info-dirs
+ (apply #'nconc
+ (mapcar (lambda (pfx)
+ (let ((dirs
+ (mapcar (lambda (sfx)
+ (concat pfx sfx "info/"))
+ suffixes)))
+ (if (member pfx unpruned-prefixes)
+ dirs
+ (prune-directory-list dirs config))))
+ prefixes))))
+ ;; If $(prefix)/info is not one of the standard info directories,
+ ;; they are probably installing an experimental version of Emacs,
+ ;; so make sure that experimental version's Info files override
+ ;; the ones in standard directories.
+ (if (member config-dir standard-info-dirs)
+ (nconc standard-info-dirs config)
+ (cons config-dir standard-info-dirs)))