Commit 540dde41 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

Fix up previous change.

parent 5a10f693
......@@ -33,10 +33,10 @@
(defvar Info-default-directory-list
(let ((start (list "/usr/local/info/"
"/usr/local/lib/info/"
configure-info-directory)))
(or (member configure-info-directory start)
(setq start (nconc start (list configure-info-directory))))
"/usr/local/lib/info/"))
(configdir (file-name-as-directory configure-info-directory)))
(or (member configdir start)
(setq start (nconc start (list configdir))))
(or (member (expand-file-name "../info/" data-directory) start)
(setq start
(nconc start
......
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