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

(Info-default-directory-list): Take out ../../info.

Avoid duplication.
parent bcacc42c
......@@ -32,11 +32,16 @@
;;; Code:
(defvar Info-default-directory-list
(list "/usr/local/info/"
"/usr/local/lib/info/"
configure-info-directory
(expand-file-name "../info/" data-directory)
(expand-file-name "../../info/" data-directory))
(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))))
(or (member (expand-file-name "../info/" data-directory) start)
(setq start
(nconc start
(list (expand-file-name "../info/" data-directory)))))
start)
"List of directories to search for Info documentation files.")
(defvar news-path "/usr/spool/news/"
......
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