From 1c4dd947d6d684b2d3c3dc298f2ee09e8fc0308b Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Wed, 13 Jul 2011 15:10:54 +0200 Subject: [PATCH] (Info-find-file): Fall back on the installation directory if we can't find the info node anywhere else. --- lisp/ChangeLog | 5 +++++ lisp/info.el | 5 +++++ 2 files changed, 10 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e2371c6f7c8..d2bfdb90a40 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2011-07-13 Lars Magne Ingebrigtsen + + * info.el (Info-find-file): Fall back on the installation + directory if we can't find the info node anywhere else. + 2011-07-13 Sergei Organov (tiny change) * vc/vc.el (vc-revert-file): diff --git a/lisp/info.el b/lisp/info.el index 29daac566d1..9e67542cda5 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)))