(Info-find-file): Fall back on the installation directory if we can't find the...

(Info-find-file): Fall back on the installation directory if we can't find the info node anywhere else.

lisp/ChangeLog

+2011-07-13  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+	* 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  <osv@javad.com>  (tiny change)
 
 	* vc/vc.el (vc-revert-file):

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)))