diff options
| author | Lars Magne Ingebrigtsen <[email protected]> | 2011-07-13 15:10:54 +0200 |
|---|---|---|
| committer | Lars Magne Ingebrigtsen <[email protected]> | 2011-07-13 15:10:54 +0200 |
| commit | 1c4dd947d6d684b2d3c3dc298f2ee09e8fc0308b (patch) | |
| tree | d1863f54f03ae07aace67c33cce09bb104ad1244 /lisp/info.el | |
| parent | 2ad77c9dd4d29f1df663b27eb41f9257bfb59bfb (diff) | |
(Info-find-file): Fall back on the installation directory if we can't find the info node anywhere else.
Diffstat (limited to 'lisp/info.el')
| -rw-r--r-- | lisp/info.el | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lisp/info.el b/lisp/info.el index 29daac566d..9e67542cda 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -728,6 +728,11 @@ just return nil (no error)." (append Info-directory-list Info-additional-directory-list) Info-directory-list))))) + ;; Fall back on the installation directory if we can't find + ;; the info node anywhere else. + (when installation-directory + (setq dirs (append dirs (list (expand-file-name + "info" installation-directory))))) ;; Search the directory list for file FILENAME. (while (and dirs (not found)) (setq temp (expand-file-name filename (car dirs))) |