(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.
parent 2ad77c9d
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):
......
......@@ -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)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment