diff options
| author | Richard M. Stallman | 1993-05-28 17:23:47 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-05-28 17:23:47 +0000 |
| commit | e562af697cf6a8a3eeceed3b27ebdb0591656476 (patch) | |
| tree | 1b129ca4ac9790ec579e5614150306ad37b78b14 /lisp/paths.el | |
| parent | bcacc42c51ac6792ebb2832777f28c28a336d45c (diff) | |
| download | emacs-e562af697cf6a8a3eeceed3b27ebdb0591656476.tar.gz emacs-e562af697cf6a8a3eeceed3b27ebdb0591656476.zip | |
(Info-default-directory-list): Take out ../../info.
Avoid duplication.
Diffstat (limited to 'lisp/paths.el')
| -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 @@ | |||
| 32 | ;;; Code: | 32 | ;;; Code: |
| 33 | 33 | ||
| 34 | (defvar Info-default-directory-list | 34 | (defvar Info-default-directory-list |
| 35 | (list "/usr/local/info/" | 35 | (let ((start (list "/usr/local/info/" |
| 36 | "/usr/local/lib/info/" | 36 | "/usr/local/lib/info/" |
| 37 | configure-info-directory | 37 | configure-info-directory))) |
| 38 | (expand-file-name "../info/" data-directory) | 38 | (or (member configure-info-directory start) |
| 39 | (expand-file-name "../../info/" data-directory)) | 39 | (setq start (nconc start (list configure-info-directory)))) |
| 40 | (or (member (expand-file-name "../info/" data-directory) start) | ||
| 41 | (setq start | ||
| 42 | (nconc start | ||
| 43 | (list (expand-file-name "../info/" data-directory))))) | ||
| 44 | start) | ||
| 40 | "List of directories to search for Info documentation files.") | 45 | "List of directories to search for Info documentation files.") |
| 41 | 46 | ||
| 42 | (defvar news-path "/usr/spool/news/" | 47 | (defvar news-path "/usr/spool/news/" |