code.delx.au - gnu-emacs/blob - lisp/paths.el

   1 ;;; paths.el --- define pathnames for use by various Emacs commands.
   2
   3 ;; Copyright (C) 1986, 1988 Free Software Foundation, Inc.
   4
   5 ;; Maintainer: FSF
   6 ;; Keywords: internal
   7
   8 ;; This file is part of GNU Emacs.
   9
  10 ;; GNU Emacs is free software; you can redistribute it and/or modify
  11 ;; it under the terms of the GNU General Public License as published by
  12 ;; the Free Software Foundation; either version 2, or (at your option)
  13 ;; any later version.
  14
  15 ;; GNU Emacs is distributed in the hope that it will be useful,
  16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18 ;; GNU General Public License for more details.
  19
  20 ;; You should have received a copy of the GNU General Public License
  21 ;; along with GNU Emacs; see the file COPYING.  If not, write to
  22 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  23
  24 ;;; Commentary:
  25
  26 ;; These are default settings for names of certain files and directories
  27 ;; that Emacs needs to refer to from time to time.
  28
  29 ;; If these settings are not right, override them with `setq'
  30 ;; in site-init.el.  Do not change this file.
  31
  32 ;;; Code:
  33
  34 (defvar Info-default-directory-list
  35   (let ((start (list "/usr/local/info/"
  36                      "/usr/local/lib/info/"))
  37         (configdir (file-name-as-directory configure-info-directory)))
  38     (or (member configdir start)
  39         (setq start (nconc start (list configdir))))
  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)
  45   "List of directories to search for Info documentation files.")
  46
  47 (defvar news-path "/usr/spool/news/"
  48   "The root directory below which all news files are stored.")
  49
  50 (defvar news-inews-program
  51   (cond ((file-exists-p "/usr/bin/inews") "/usr/bin/inews")
  52         ((file-exists-p "/usr/local/inews") "/usr/local/inews")
  53         ((file-exists-p "/usr/local/bin/inews") "/usr/local/bin/inews")
  54         ((file-exists-p "/usr/lib/news/inews") "/usr/lib/news/inews")
  55         (t "inews"))
  56   "Program to post news.")
  57
  58 (defvar gnus-default-nntp-server ""
  59   ;; set this to your local server
  60   "The name of the host running an NNTP server.
  61 If it is a string such as \":DIRECTORY\", then ~/DIRECTORY
  62 is used as a news spool.  `gnus-nntp-server' is initialised from NNTPSERVER
  63 environment variable or, if none, this value.")
  64
  65 (defvar gnus-nntp-service "nntp"
  66   "NNTP service name, usually \"nntp\" or 119).
  67 Go to a local news spool if its value is nil, in which case `gnus-nntp-server'
  68 should be set to `(system-name)'.")
  69
  70 (defvar gnus-local-domain nil
  71   "Your domain name without your host name like: \"stars.flab.Fujitsu.CO.JP\"
  72 The DOMAINNAME environment variable is used instead if defined.  If
  73 the function `system-name' returns a fully qualified domain name, there is no
  74 need to define the name.")
  75
  76 (defvar gnus-local-organization ""
  77   "Your organization like: \"Fujitsu Laboratories Ltd., Kawasaki, Japan.\"
  78 The `ORGANIZATION' environment variable is used instead if defined.")
  79
  80 (defvar mh-progs
  81   (cond ((file-directory-p "/usr/bin/mh/") "/usr/bin/mh/") ;Ultrix 4.2
  82         ((file-directory-p "/usr/new/mh/") "/usr/new/mh/") ;Ultrix <4.2
  83         ((file-directory-p "/usr/local/bin/mh/") "/usr/local/bin/mh/")
  84         ((file-directory-p "/usr/local/mh/") "/usr/local/mh/")
  85         (t "/usr/local/bin/"))
  86   "Directory containing MH commands.")
  87
  88 (defvar mh-lib
  89   (cond ((file-directory-p "/usr/lib/mh/") "/usr/lib/mh/") ;Ultrix 4.2
  90         ((file-directory-p "/usr/new/lib/mh/") "/usr/new/lib/mh/") ;Ultrix <4.2
  91         ((file-directory-p "/usr/local/lib/mh/") "/usr/local/lib/mh/")
  92         (t "/usr/local/bin/mh/"))
  93   "Directory of MH library.")
  94
  95 (defvar rmail-file-name "~/RMAIL"
  96   "Name of user's primary mail file.")
  97
  98 (defvar gnus-startup-file "~/.newsrc"
  99   "The file listing groups to which user is subscribed.
 100 Will use `gnus-startup-file'-SERVER instead if exists.")
 101
 102 (defconst rmail-spool-directory
 103   (if (memq system-type '(dgux-unix hpux usg-unix-v unisoft-unix rtu
 104                           irix silicon-graphics-unix))
 105       "/usr/mail/"
 106     "/usr/spool/mail/")
 107   "Name of directory used by system mailer for delivering new mail.
 108 Its name should end with a slash.")
 109
 110 (defconst sendmail-program
 111   (if (file-exists-p "/usr/lib/sendmail")
 112       "/usr/lib/sendmail"
 113     (if (file-exists-p "/usr/ucblib/sendmail")
 114         "/usr/ucblib/sendmail"
 115       "fakemail"))                      ;In ../etc, to interface to /bin/mail.
 116   "Program used to send messages.")
 117
 118 (defconst term-file-prefix (if (eq system-type 'vax-vms) "[.term]" "term/")
 119   "If non-nil, Emacs startup does (load (concat term-file-prefix (getenv \"TERM\")))
 120 You may set this variable to nil in your `.emacs' file if you do not wish
 121 the terminal-initialization file to be loaded.")
 122
 123 ;; Solaris 2 has both of these files; prefer /usr/ucb/man
 124 ;; because the other has nonstandard argument conventions.
 125 (defconst manual-program (if (file-exists-p "/usr/ucb/man")
 126                              "/usr/ucb/man" "/usr/bin/man")
 127   "Program to run to print man pages.")
 128
 129 (defconst abbrev-file-name
 130   (if (eq system-type 'vax-vms)
 131       "~/abbrev.def"
 132     "~/.abbrev_defs")
 133   "*Default name of file to read abbrevs from.")
 134
 135 ;;; paths.el ends here