diff options
| author | Glenn Morris <rgm@gnu.org> | 2014-01-09 23:26:04 -0800 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2014-01-09 23:26:04 -0800 |
| commit | 94ffb4b20eab1e4584e2aa72d2d2ffb1555de70c (patch) | |
| tree | da0446bbbca67d153dbcc1a87b974a3a5cdfcbaa /lisp/info.el | |
| parent | 06827ec8428b897a38dc0532ee3d2070ae07aba1 (diff) | |
| download | emacs-94ffb4b20eab1e4584e2aa72d2d2ffb1555de70c.tar.gz | |
Tweak previous info.el change
Diffstat (limited to 'lisp/info.el')
| -rw-r--r-- | lisp/info.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/info.el b/lisp/info.el index b8e30fadef3..74bdef5b050 100644 --- 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. |