diff options
| author | Glenn Morris | 2014-01-09 23:26:04 -0800 |
|---|---|---|
| committer | Glenn Morris | 2014-01-09 23:26:04 -0800 |
| commit | 94ffb4b20eab1e4584e2aa72d2d2ffb1555de70c (patch) | |
| tree | da0446bbbca67d153dbcc1a87b974a3a5cdfcbaa | |
| parent | 06827ec8428b897a38dc0532ee3d2070ae07aba1 (diff) | |
| download | emacs-94ffb4b20eab1e4584e2aa72d2d2ffb1555de70c.tar.gz emacs-94ffb4b20eab1e4584e2aa72d2d2ffb1555de70c.zip | |
Tweak previous info.el change
| -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'." | |||
| 737 | (and path | 737 | (and path |
| 738 | installation-directory | 738 | installation-directory |
| 739 | (let ((dir (expand-file-name "info/" installation-directory))) | 739 | (let ((dir (expand-file-name "info/" installation-directory))) |
| 740 | (setq Info-directory-list (delete dir Info-directory-list)) | 740 | (when (file-directory-p dir) |
| 741 | (push dir Info-directory-list))) | 741 | (setq Info-directory-list (delete dir Info-directory-list)) |
| 742 | (push dir Info-directory-list)))) | ||
| 742 | ;; For a self-contained (ie relocatable) NS build, AFAICS we | 743 | ;; For a self-contained (ie relocatable) NS build, AFAICS we |
| 743 | ;; always want the included info directory to be at the head of | 744 | ;; always want the included info directory to be at the head of |
| 744 | ;; the search path, unless it's already in INFOPATH somewhere. | 745 | ;; the search path, unless it's already in INFOPATH somewhere. |