From 5d645ea4ee6c36009bd9d74a2c4cbb3438a62ded Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Fri, 14 Feb 2014 19:58:38 -0800 Subject: [PATCH] * lisp/info.el (info-initialize): Revert 2014-01-10 change. --- lisp/ChangeLog | 4 ++++ lisp/info.el | 8 -------- 2 files changed, 4 insertions(+), 8 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8c097ad87b..9f8b55771b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2014-02-15 Glenn Morris + + * info.el (info-initialize): Revert 2014-01-10 change. + 2014-02-14 Glenn Morris * replace.el (map-query-replace-regexp) diff --git a/lisp/info.el b/lisp/info.el index 97b9c809d7..77f69f914c 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -732,14 +732,6 @@ in `Info-file-supports-index-cookies-list'." (Info-default-dirs)) (split-string path sep)) (Info-default-dirs)))) - ;; If we are running uninstalled, our own Info files should - ;; always come first. If INFOPATH was set, they might not. - (and path - installation-directory - (let ((dir (expand-file-name "info/" installation-directory))) - (when (file-directory-p dir) - (setq Info-directory-list (delete dir Info-directory-list)) - (push dir Info-directory-list)))) ;; For a self-contained (ie relocatable) NS build, AFAICS we ;; always want the included info directory to be at the head of ;; the search path, unless it's already in INFOPATH somewhere. -- 2.20.1