Tweak previous info.el change

diff --git a/lisp/info.el b/lisp/info.el
index b8e30fadef3982883cdb0c7016e7e5a29e4b6e26..74bdef5b0504776248e6ba9bac157b85e6521c82 100644 (file)
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -737,8 +737,9 @@ in `Info-file-supports-index-cookies-list'."
       (and path
           installation-directory
           (let ((dir (expand-file-name "info/" installation-directory)))
-            (setq Info-directory-list (delete dir Info-directory-list))
-            (push dir Info-directory-list)))
+            (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.