X-Git-Url: https://git.hcoop.net/bpt/emacs.git/blobdiff_plain/8f924df7df019cce90537647de2627581043b5c4..599498c31f0ce7a3ffd6094a12a986766b5a694d:/lisp/paths.el diff --git a/lisp/paths.el b/lisp/paths.el index f0d5a8d5cd..385df8488e 100644 --- a/lisp/paths.el +++ b/lisp/paths.el @@ -1,16 +1,17 @@ ;;; paths.el --- define pathnames for use by various Emacs commands -*- no-byte-compile: t -*- -;; Copyright (C) 1986, 1988, 1994, 1999, 2000 Free Software Foundation, Inc. +;; Copyright (C) 1986, 1988, 1994, 1999, 2000, 2001, 2002, 2003, 2004, +;; 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: internal ;; This file is part of GNU Emacs. -;; GNU Emacs is free software; you can redistribute it and/or modify +;; GNU Emacs is free software: you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by -;; the Free Software Foundation; either version 2, or (at your option) -;; any later version. +;; the Free Software Foundation, either version 3 of the License, or +;; (at your option) any later version. ;; GNU Emacs is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of @@ -18,9 +19,7 @@ ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License -;; along with GNU Emacs; see the file COPYING. If not, write to the -;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, -;; Boston, MA 02111-1307, USA. +;; along with GNU Emacs. If not, see . ;;; Commentary: @@ -37,13 +36,13 @@ ;; DOC file rather than in memory. (defun prune-directory-list (dirs &optional keep reject) - "Returns a copy of DIRS with all non-existant directories removed. + "Return a copy of DIRS with all non-existent directories removed. The optional argument KEEP is a list of directories to retain even if they don't exist, and REJECT is a list of directories to remove from DIRS, even if they exist; REJECT takes precedence over KEEP. Note that membership in REJECT and KEEP is checked using simple string -comparision." +comparison." (apply #'nconc (mapcar (lambda (dir) (and (not (member dir reject)) @@ -67,7 +66,7 @@ comparision." (suffixes ;; Subdirectories in each directory tree that may contain info ;; directories. - '("" "share/" "gnu/" "gnu/lib/" "gnu/lib/emacs/" + '("share/" "" "gnu/" "gnu/lib/" "gnu/lib/emacs/" "emacs/" "lib/" "lib/emacs/")) (standard-info-dirs (apply #'nconc @@ -80,10 +79,10 @@ comparision." dirs (prune-directory-list dirs config)))) prefixes)))) - ;; If $(prefix)/info is not one of the standard info directories, - ;; they are probably installing an experimental version of Emacs, - ;; so make sure that experimental version's Info files override - ;; the ones in standard directories. + ;; If $(prefix)/share/info is not one of the standard info + ;; directories, they are probably installing an experimental + ;; version of Emacs, so make sure that experimental version's Info + ;; files override the ones in standard directories. (if (member config-dir standard-info-dirs) (nconc standard-info-dirs config) (cons config-dir standard-info-dirs))) @@ -101,11 +100,12 @@ This variable `Info-default-directory-list' is used as the default for initializing `Info-directory-list' when Info is started, unless the environment variable INFOPATH is set.") -(defvar news-path +(defvar news-directory (if (file-exists-p "/usr/spool/news/") "/usr/spool/news/" "/var/spool/news/") "The root directory below which all news files are stored.") +(defvaralias 'news-path 'news-directory) (defvar news-inews-program (cond ((file-exists-p "/usr/bin/inews") "/usr/bin/inews") @@ -122,7 +122,7 @@ The name of the host running an NNTP server. The null string means use the local host as the server site.") (defvar gnus-nntp-service "nntp" - "NNTP service name, usually \"nntp\" or 119). + "NNTP service name, usually \"nntp\" or 119. Go to a local news spool if its value is nil, in which case `gnus-nntp-server' should be set to `(system-name)'.") @@ -131,41 +131,27 @@ should be set to `(system-name)'.") The `ORGANIZATION' environment variable is used instead if defined.") (defcustom rmail-file-name "~/RMAIL" - "*Name of user's primary mail file." + "Name of user's primary mail file." :type 'string :group 'rmail :version "21.1") -(defconst rmail-spool-directory - (cond ((string-match "^[^-]+-[^-]+-sco3.2v4" system-configuration) - "/usr/spool/mail/") - ;; On The Bull DPX/2 /usr/spool/mail is used although - ;; it is usg-unix-v. - ((string-match "^m68k-bull-sysv3" system-configuration) - "/usr/spool/mail/") - ;; SVR4 and recent BSD are said to use this. - ;; Rather than trying to know precisely which systems use it, - ;; let's assume this dir is never used for anything else. - ((file-exists-p "/var/mail") +(defvar rmail-spool-directory + (cond ((file-exists-p "/var/mail") + ;; SVR4 and recent BSD are said to use this. + ;; Rather than trying to know precisely which systems use it, + ;; let's assume this dir is never used for anything else. "/var/mail/") ;; Many GNU/Linux systems use this name. ((file-exists-p "/var/spool/mail") "/var/spool/mail/") - ((memq system-type '(dgux hpux usg-unix-v unisoft-unix rtu irix)) + ((memq system-type '(hpux usg-unix-v irix)) "/usr/mail/") (t "/usr/spool/mail/")) "Name of directory used by system mailer for delivering new mail. Its name should end with a slash.") -(defconst sendmail-program - (cond - ((file-exists-p "/usr/sbin/sendmail") "/usr/sbin/sendmail") - ((file-exists-p "/usr/lib/sendmail") "/usr/lib/sendmail") - ((file-exists-p "/usr/ucblib/sendmail") "/usr/ucblib/sendmail") - (t "fakemail")) ;In ../etc, to interface to /bin/mail. - "Program used to send messages.") - -(defconst remote-shell-program +(defcustom remote-shell-program (cond ;; Some systems use rsh for the remote shell; others use that name for the ;; restricted shell and use remsh for the remote shell. Let's try to guess @@ -186,17 +172,14 @@ Its name should end with a slash.") ((file-exists-p "/bin/rsh") "/bin/rsh") ((file-exists-p "/usr/bin/rsh") "/usr/bin/rsh") (t "rsh")) - "File name for remote-shell program (often rsh or remsh).") + "File name for remote-shell program (often rsh or remsh)." + :group 'environment + :type 'file) -(defconst term-file-prefix (if (eq system-type 'vax-vms) "[.term]" "term/") "\ +(defvar term-file-prefix "term/" "\ If non-nil, Emacs startup does (load (concat term-file-prefix (getenv \"TERM\"))) You may set this variable to nil in your `.emacs' file if you do not wish the terminal-initialization file to be loaded.") -(defconst abbrev-file-name - (if (eq system-type 'vax-vms) - "~/abbrev.def" - (convert-standard-filename "~/.abbrev_defs")) - "*Default name of file to read abbrevs from.") - +;; arch-tag: bae27ffb-9944-4c87-b569-30d4635a99e1 ;;; paths.el ends here