diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-05-28 17:23:47 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-05-28 17:23:47 +0000 |
| commit | 3197b7562206827e0f1af3d61379429f61d21776 (patch) | |
| tree | b18bae1ed44207d679cf505ad2d38242719cda68 | |
| parent | 83813bdfdad9e72051368ad4c22ee30c5c9d3f98 (diff) | |
| download | emacs-3197b7562206827e0f1af3d61379429f61d21776.tar.gz | |
(Info-default-directory-list): Take out ../../info.
Avoid duplication.
| -rw-r--r-- | lisp/paths.el | 15 |
1 files changed, 10 insertions, 5 deletions
diff --git a/lisp/paths.el b/lisp/paths.el index b618f0186c0..b3ced84da18 100644 --- a/lisp/paths.el +++ b/lisp/paths.el @@ -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/" |