1;;; paths.el --- define pathnames for use by various Emacs commands -*- no-byte-compile: t -*- 2 3;; Copyright (C) 1986, 1988, 1994, 1999, 2000, 2001, 2002, 2003, 4;; 2004, 2005, 2006, 2007 Free Software Foundation, Inc. 5 6;; Maintainer: FSF 7;; Keywords: internal 8 9;; This file is part of GNU Emacs. 10 11;; GNU Emacs is free software; you can redistribute it and/or modify 12;; it under the terms of the GNU General Public License as published by 13;; the Free Software Foundation; either version 2, or (at your option) 14;; any later version. 15 16;; GNU Emacs is distributed in the hope that it will be useful, 17;; but WITHOUT ANY WARRANTY; without even the implied warranty of 18;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 19;; GNU General Public License for more details. 20 21;; You should have received a copy of the GNU General Public License 22;; along with GNU Emacs; see the file COPYING. If not, write to the 23;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, 24;; Boston, MA 02110-1301, USA. 25 26;;; Commentary: 27 28;; These are default settings for names of certain files and directories 29;; that Emacs needs to refer to from time to time. 30 31;; If these settings are not right, override them with `setq' 32;; in site-init.el. Do not change this file. 33 34;;; Code: 35 36;; Docstrings in this file should, where reasonable, follow the 37;; conventions described in bindings.el, so that they get put in the 38;; DOC file rather than in memory. 39 40(defun prune-directory-list (dirs &optional keep reject) 41 "Returns a copy of DIRS with all non-existent directories removed. 42The optional argument KEEP is a list of directories to retain even if 43they don't exist, and REJECT is a list of directories to remove from 44DIRS, even if they exist; REJECT takes precedence over KEEP. 45 46Note that membership in REJECT and KEEP is checked using simple string 47comparison." 48 (apply #'nconc 49 (mapcar (lambda (dir) 50 (and (not (member dir reject)) 51 (or (member dir keep) (file-directory-p dir)) 52 (list dir))) 53 dirs))) 54 55(defvar Info-default-directory-list 56 (let* ((config-dir 57 (file-name-as-directory configure-info-directory)) 58 (config 59 (list config-dir)) 60 (unpruned-prefixes 61 ;; Directory trees that may not exist at installation time, and 62 ;; so shouldn't be pruned based on existance. 63 '("/usr/local/")) 64 (prefixes 65 ;; Directory trees in which to look for info subdirectories 66 (prune-directory-list '("/usr/local/" "/usr/" "/opt/" "/") 67 unpruned-prefixes)) 68 (suffixes 69 ;; Subdirectories in each directory tree that may contain info 70 ;; directories. 71 '("share/" "" "gnu/" "gnu/lib/" "gnu/lib/emacs/" 72 "emacs/" "lib/" "lib/emacs/")) 73 (standard-info-dirs 74 (apply #'nconc 75 (mapcar (lambda (pfx) 76 (let ((dirs 77 (mapcar (lambda (sfx) 78 (concat pfx sfx "info/")) 79 suffixes))) 80 (if (member pfx unpruned-prefixes) 81 dirs 82 (prune-directory-list dirs config)))) 83 prefixes)))) 84 ;; If $(prefix)/share/info is not one of the standard info 85 ;; directories, they are probably installing an experimental 86 ;; version of Emacs, so make sure that experimental version's Info 87 ;; files override the ones in standard directories. 88 (if (member config-dir standard-info-dirs) 89 (nconc standard-info-dirs config) 90 (cons config-dir standard-info-dirs))) 91 "Default list of directories to search for Info documentation files. 92They are searched in the order they are given in the list. 93Therefore, the directory of Info files that come with Emacs 94normally should come last (so that local files override standard ones), 95unless Emacs is installed into a non-standard directory. In the latter 96case, the directory of Info files that come with Emacs should be 97first in this list. 98 99Once Info is started, the list of directories to search 100comes from the variable `Info-directory-list'. 101This variable `Info-default-directory-list' is used as the default 102for initializing `Info-directory-list' when Info is started, unless 103the environment variable INFOPATH is set.") 104 105(defvar news-directory 106 (if (file-exists-p "/usr/spool/news/") 107 "/usr/spool/news/" 108 "/var/spool/news/") 109 "The root directory below which all news files are stored.") 110(defvaralias 'news-path 'news-directory) 111 112(defvar news-inews-program 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") 118 (t "inews")) 119 "Program to post news.") 120 121;; set this to your local server 122(defvar gnus-default-nntp-server "" "\ 123The name of the host running an NNTP server. 124The null string means use the local host as the server site.") 125 126(defvar gnus-nntp-service "nntp" 127 "NNTP service name, usually \"nntp\" or 119). 128Go to a local news spool if its value is nil, in which case `gnus-nntp-server' 129should be set to `(system-name)'.") 130 131(defvar gnus-local-organization nil "\ 132*The name of your organization, as a string. 133The `ORGANIZATION' environment variable is used instead if defined.") 134 135(defcustom rmail-file-name "~/RMAIL" 136 "*Name of user's primary mail file." 137 :type 'string 138 :group 'rmail 139 :version "21.1") 140 141(defvar rmail-spool-directory 142 (cond ((string-match "^[^-]+-[^-]+-sco3.2v4" system-configuration) 143 "/usr/spool/mail/") 144 ;; On The Bull DPX/2 /usr/spool/mail is used although 145 ;; it is usg-unix-v. 146 ((string-match "^m68k-bull-sysv3" system-configuration) 147 "/usr/spool/mail/") 148 ;; SVR4 and recent BSD are said to use this. 149 ;; Rather than trying to know precisely which systems use it, 150 ;; let's assume this dir is never used for anything else. 151 ((file-exists-p "/var/mail") 152 "/var/mail/") 153 ;; Many GNU/Linux systems use this name. 154 ((file-exists-p "/var/spool/mail") 155 "/var/spool/mail/") 156 ((memq system-type '(dgux hpux usg-unix-v unisoft-unix rtu irix)) 157 "/usr/mail/") 158 (t "/usr/spool/mail/")) 159 "Name of directory used by system mailer for delivering new mail. 160Its name should end with a slash.") 161 162(defcustom remote-shell-program 163 (cond 164 ;; Some systems use rsh for the remote shell; others use that name for the 165 ;; restricted shell and use remsh for the remote shell. Let's try to guess 166 ;; based on what we actually find out there. The restricted shell is 167 ;; almost certainly in /bin or /usr/bin, so it's probably safe to assume 168 ;; that an rsh found elsewhere is the remote shell program. The converse 169 ;; is not true: /usr/bin/rsh could be either one, so check that last. 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") 182 (t "rsh")) 183 "File name for remote-shell program (often rsh or remsh)." 184 :group 'environment 185 :type 'file) 186 187(defvar term-file-prefix (if (eq system-type 'vax-vms) "[.term]" "term/") "\ 188If non-nil, Emacs startup does (load (concat term-file-prefix (getenv \"TERM\"))) 189You may set this variable to nil in your `.emacs' file if you do not wish 190the terminal-initialization file to be loaded.") 191 192(defvar abbrev-file-name 193 (if (eq system-type 'vax-vms) 194 "~/abbrev.def" 195 (convert-standard-filename "~/.abbrev_defs")) 196 "*Default name of file to read abbrevs from.") 197 198;;; arch-tag: bae27ffb-9944-4c87-b569-30d4635a99e1 199;;; paths.el ends here 200