procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Lars Magne Ingebrigtsen 2011-07-13 15:10:54 +02:00
parent 2ad77c9dd4
commit 1c4dd947d6
2 changed files with 10 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
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):

5
lisp/info.el
View 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)))