Mercurial > emacs

comparison lisp/paths.el @ 3211:4a1a003ded62

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 e32cef1a19b7
children 1fdd5c6dc6ba
comparison
equal deleted inserted replaced
3210:3176c6395ada 3211:4a1a003ded62
30 ;; in site-init.el. Do not change this file. 30 ;; in site-init.el. Do not change this file.
31 31
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/"
43 "The root directory below which all news files are stored.") 48 "The root directory below which all news files are stored.")
44 49