emacs/lisp/paths.el

9 ;; This file is part of GNU Emacs.
22 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
32 ;; in site-init.el.  Do not change this file.
36 ;; Docstrings in this file should, where reasonable, follow the
38 ;; DOC file rather than in memory.
40 (defun prune-directory-list (dirs &optional keep reject)
51 			(or (member dir keep) (file-directory-p dir))
55 (defvar Info-default-directory-list
57 	  (file-name-as-directory configure-info-directory))
66 	  (prune-directory-list '("/usr/local/" "/usr/" "/opt/" "/")
69 	  ;; Subdirectories in each directory tree that may contain info
82 			       (prune-directory-list dirs config))))
93 Therefore, the directory of Info files that come with Emacs
95 unless Emacs is installed into a non-standard directory.  In the latter
96 case, the directory of Info files that come with Emacs should be
100 comes from the variable `Info-directory-list'.
101 This variable `Info-default-directory-list' is used as the default
102 for initializing `Info-directory-list' when Info is started, unless
105 (defvar news-directory
106   (if (file-exists-p "/usr/spool/news/")
109   "The root directory below which all news files are stored.")
110 (defvaralias 'news-path 'news-directory)
113   (cond ((file-exists-p "/usr/bin/inews") "/usr/bin/inews")
114 	((file-exists-p "/usr/local/inews") "/usr/local/inews")
115 	((file-exists-p "/usr/local/bin/inews") "/usr/local/bin/inews")
116 	((file-exists-p "/usr/contrib/lib/news/inews") "/usr/contrib/lib/news/inews")
117 	((file-exists-p "/usr/lib/news/inews") "/usr/lib/news/inews")
123 The name of the host running an NNTP server.
127   "NNTP service name, usually \"nntp\" or 119).
129 should be set to `(system-name)'.")
132 *The name of your organization, as a string.
135 (defcustom rmail-file-name "~/RMAIL"
136   "*Name of user's primary mail file."
141 (defvar rmail-spool-directory
151 	((file-exists-p "/var/mail")
153 	;; Many GNU/Linux systems use this name.
154 	((file-exists-p "/var/spool/mail")
159   "Name of directory used by system mailer for delivering new mail.
160 Its name should end with a slash.")
164    ;; Some systems use rsh for the remote shell; others use that name for the
170    ((file-exists-p "/usr/ucb/remsh") "/usr/ucb/remsh")
171    ((file-exists-p "/usr/bsd/remsh") "/usr/bsd/remsh")
172    ((file-exists-p "/bin/remsh") "/bin/remsh")
173    ((file-exists-p "/usr/bin/remsh") "/usr/bin/remsh")
174    ((file-exists-p "/usr/local/bin/remsh") "/usr/local/bin/remsh")
175    ((file-exists-p "/usr/ucb/rsh") "/usr/ucb/rsh")
176    ((file-exists-p "/usr/bsd/rsh") "/usr/bsd/rsh")
177    ((file-exists-p "/usr/local/bin/rsh") "/usr/local/bin/rsh")
178    ((file-exists-p "/usr/bin/rcmd") "/usr/bin/rcmd")
179    ((file-exists-p "/bin/rcmd") "/bin/rcmd")
180    ((file-exists-p "/bin/rsh") "/bin/rsh")
181    ((file-exists-p "/usr/bin/rsh") "/usr/bin/rsh")
183   "File name for remote-shell program (often rsh or remsh)."
185   :type 'file)
187 (defvar term-file-prefix (if (eq system-type 'vax-vms) "[.term]" "term/") "\
188 If non-nil, Emacs startup does (load (concat term-file-prefix (getenv \"TERM\")))
189 You may set this variable to nil in your `.emacs' file if you do not wish
190 the terminal-initialization file to be loaded.")
192 (defvar abbrev-file-name
196   "*Default name of file to read abbrevs from.")