[Emacs-diffs] trunk r115956: Tweak previous info.el change

[Glenn Morris]

------------------------------------------------------------
revno: 115956
revision-id: address@hidden
parent: address@hidden
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Thu 2014-01-09 23:26:04 -0800
message:
  Tweak previous info.el change
modified:
  lisp/info.el                   info.el-20091113204419-o5vbwnq5f7feedwu-261

=== modified file 'lisp/info.el'
--- a/lisp/info.el      2014-01-10 05:39:29 +0000
+++ b/lisp/info.el      2014-01-10 07:26:04 +0000
@@ -737,8 +737,9 @@
       (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.