(Info-default-dirs): Change default info dir to

share/info.
This commit is contained in:
Chong Yidong 2007-01-18 16:09:06 +00:00
parent cd4496efc8
commit 41a1027e9e

View file

@ -463,12 +463,12 @@ Do the right thing if the file has been compressed or zipped."
(expand-file-name "info/" installation-directory)
(if invocation-directory
(let ((infodir (expand-file-name
"../info/"
"../share/info/"
invocation-directory)))
(if (file-exists-p infodir)
infodir
(setq infodir (expand-file-name
"../../../info/"
"../../../share/info/"
invocation-directory))
(and (file-exists-p infodir)
infodir))))))