Mercurial > emacs
changeset 3211:4a1a003ded62
(Info-default-directory-list): Take out ../../info.
Avoid duplication.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 28 May 1993 17:23:47 +0000 |
| parents | 3176c6395ada |
| children | cd8f8468a190 |
| files | lisp/paths.el |
| diffstat | 1 files changed, 10 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/paths.el Fri May 28 16:40:28 1993 +0000 +++ b/lisp/paths.el Fri May 28 17:23:47 1993 +0000 @@ -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/"