git.chise.org Git - chise/xemacs-chise.git-/blob - lisp/paths.el

   1 ;;; paths.el --- define pathnames for use by various Emacs commands.
   2
   3 ;; Copyright (C) 1986, 1988, 1993, 1994, 1997 Free Software Foundation, Inc.
   4
   5 ;; Maintainer: FSF
   6 ;; Keywords: internal, dumped
   7
   8 ;; This file is part of XEmacs.
   9
  10 ;; XEmacs is free software; you can redistribute it and/or modify it
  11 ;; 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 ;; XEmacs is distributed in the hope that it will be useful, but
  16 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  18 ;; General Public License for more details.
  19
  20 ;; You should have received a copy of the GNU General Public License
  21 ;; along with XEmacs; see the file COPYING.  If not, write to the Free
  22 ;; Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  23
  24 ;;; Synched up with: FSF 19.30.
  25
  26 ;;; Commentary:
  27
  28 ;; This file is dumped with XEmacs.
  29
  30 ;; These are default settings for names of certain files and directories
  31 ;; that Emacs needs to refer to from time to time.
  32
  33 ;; If these settings are not right, override them with `setq'
  34 ;; in site-start.el.  Do not change this file.
  35
  36 ;;; Code:
  37
  38 ;Note: FSF's version is:
  39 ;(defvar Info-default-directory-list
  40 ;  (let ((start (list "/usr/local/lib/info/"
  41 ;                     ;; This comes second so that, if it is the same
  42 ;                     ;; as configure-info-directory (which is usually true)
  43 ;                     ;; and Emacs has been installed (also usually true)
  44 ;                     ;; then the list will end with two copies of this;
  45 ;                     ;; which means that the last dir file Info-insert-dir
  46 ;                     ;; finds will be the one in this directory.
  47 ;                     "/usr/local/info/"))
  48 ;        (configdir (file-name-as-directory configure-info-directory)))
  49 ;    (setq start (nconc start (list configdir)))
  50 ;    start)
  51 ;  "List of directories to search for Info documentation files.
  52 ;They are searched in the order they are given in this list.
  53 ;Therefore, the directory of Info files that come with Emacs
  54 ;normally should come last (so that local files override standard ones).")
  55
  56 ;Our commented-out version is:
  57 ;(defvar Info-default-directory-list
  58 ;  (let ((start (list "/usr/local/info/"
  59 ;                    "/usr/local/lib/info/"))
  60 ;       (configdir (file-name-as-directory configure-info-directory)))
  61 ;    (or (member configdir start)
  62 ;       (setq start (nconc start (list configdir))))
  63 ;    (or (member (expand-file-name "../info/" data-directory) start)
  64 ;       (setq start
  65 ;             (nconc start
  66 ;                    (list (expand-file-name "../info/" data-directory)))))
  67 ;    start)
  68 ;  "List of directories to search for Info documentation files.")
  69
  70 (defvar news-path "/usr/spool/news/"
  71   "The root directory below which all news files are stored.")
  72
  73 (defvar news-inews-program nil
  74   "Program to post news.")
  75
  76 ;(defvar gnus-default-nntp-server ""
  77 ;  ;; set this to your local server
  78 ;  "The name of the host running an NNTP server.
  79 ;If it is a string such as \":DIRECTORY\", then ~/DIRECTORY
  80 ;is used as a news spool.  `gnus-nntp-server' is initialized from NNTPSERVER
  81 ;environment variable or, if none, this value.")
  82
  83 ;(defvar gnus-nntp-service "nntp"
  84 ;  "NNTP service name, usually \"nntp\" or 119).
  85 ;Go to a local news spool if its value is nil, in which case `gnus-nntp-server'
  86 ;should be set to `(system-name)'.")
  87
  88 (defvar mh-progs nil
  89   "Directory containing MH commands.")
  90
  91 (defvar mh-lib nil
  92   "Directory of MH library.")
  93
  94 (defvar rmail-file-name "~/RMAIL"
  95   "Name of user's primary mail file.")
  96
  97 (defconst rmail-spool-directory nil
  98   "Name of directory used by system mailer for delivering new mail.
  99 Its name should end with a slash.")
 100
 101 (defconst sendmail-program nil
 102   "Program used to send messages.")
 103
 104 (defconst remote-shell-program nil
 105   "Program used to execute shell commands on a remote machine.")
 106
 107 (defconst term-file-prefix "term/"
 108   "If non-nil, Emacs startup does (load (concat term-file-prefix (getenv \"TERM\")))
 109 You may set this variable to nil in your `.emacs' file if you do not wish
 110 the terminal-initialization file to be loaded.")
 111
 112 (defconst manual-program nil
 113   "Program to run to print man pages.")
 114
 115 (defconst abbrev-file-name "~/.abbrev_defs"
 116   "*Default name of file to read abbrevs from.")
 117
 118 (defconst directory-abbrev-alist nil)
 119
 120 ;; Formerly, the values of these variables were computed once
 121 ;; (at dump time).  However, with the advent of pre-compiled binaries
 122 ;; and homebrewed systems such as Linux where who knows where the
 123 ;; hell the various programs may be located (if they even exist at all),
 124 ;; it's clear that we need to recompute these values at run time.
 125 ;; In typical short-sightedness, site administrators have been told up
 126 ;; till now to do `setq's in site-init.el, which is run only once --
 127 ;; at dump time.  So we have to do contortions to make sure we don't
 128 ;; override values set in site-init.el.
 129
 130 (defun initialize-xemacs-paths ()
 131   "Initialize the XEmacs path variables from the environment.
 132 Called automatically at dump time and run time.  Do not call this.
 133 Will not override settings in site-init.el or site-run.el."
 134   (let ((l #'(lambda (var value)
 135                (let ((origsym (intern (concat "paths-el-original-"
 136                                               (symbol-name var)))))
 137                  (if (running-temacs-p)
 138                      (progn
 139                        (set var value)
 140                        (set origsym value))
 141                    (and (eq (symbol-value var) (symbol-value origsym))
 142                         (set var value)))))))
 143     (funcall
 144      l 'news-inews-program
 145      (cond ((file-exists-p "/usr/bin/inews") "/usr/bin/inews")
 146            ((file-exists-p "/usr/local/inews") "/usr/local/inews")
 147            ((file-exists-p "/usr/local/bin/inews") "/usr/local/bin/inews")
 148            ((file-exists-p "/usr/lib/news/inews") "/usr/lib/news/inews")
 149            (t "inews")))
 150
 151     (funcall
 152      l 'mh-progs
 153      (cond ((file-directory-p "/usr/bin/mh") "/usr/bin/mh/") ;Ultrix 4.2
 154            ((file-directory-p "/usr/new/mh") "/usr/new/mh/") ;Ultrix <4.2
 155            ((file-directory-p "/usr/local/bin/mh") "/usr/local/bin/mh/")
 156            ((file-directory-p "/usr/local/mh") "/usr/local/mh/")
 157            (t "/usr/local/bin/")))
 158
 159     (funcall
 160      l 'mh-libs
 161      (cond ((file-directory-p "/usr/lib/mh") "/usr/lib/mh/") ;Ultrix 4.2
 162            ((file-directory-p "/usr/new/lib/mh")
 163             "/usr/new/lib/mh/") ;Ultrix <4.2
 164            ((file-directory-p "/usr/local/lib/mh") "/usr/local/lib/mh/")
 165            (t "/usr/local/bin/mh/")))
 166
 167     (funcall
 168      l 'rmail-spool-directory
 169      (cond ((string-match "^[^-]+-[^-]+-sco3.2v4" system-configuration)
 170             "/usr/spool/mail/")
 171            ;; On The Bull DPX/2 /usr/spool/mail is used although
 172            ;; it is usg-unix-v.
 173            ((string-match "^m68k-bull-sysv3" system-configuration)
 174             "/usr/spool/mail/")
 175            ;; SVR4 and recent BSD are said to use this.
 176            ;; Rather than trying to know precisely which systems use it,
 177            ;; let's assume this dir is never used for anything else.
 178            ((file-exists-p "/var/mail")
 179             "/var/mail/")
 180            ((memq system-type '(dgux hpux usg-unix-v unisoft-unix rtu irix))
 181             "/usr/mail/")
 182            ((memq system-type '(linux))
 183             "/var/spool/mail/")
 184            (t "/usr/spool/mail/")))
 185
 186     (funcall
 187      l 'sendmail-program
 188      (cond
 189       ((file-exists-p "/usr/lib/sendmail") "/usr/lib/sendmail")
 190       ((file-exists-p "/usr/sbin/sendmail") "/usr/sbin/sendmail")
 191       ((file-exists-p "/usr/ucblib/sendmail") "/usr/ucblib/sendmail")
 192       (t "fakemail")))          ;In ../etc, to interface to /bin/mail.
 193
 194     (funcall
 195      l 'remote-shell-program
 196      (cond
 197       ;; Some systems use rsh for the remote shell; others use that
 198       ;; name for the restricted shell and use remsh for the remote
 199       ;; shell.  Let's try to guess based on what we actually find
 200       ;; out there.  The restricted shell is almost certainly in
 201       ;; /bin or /usr/bin, so it's probably safe to assume that an
 202       ;; rsh found elsewhere is the remote shell program.  The
 203       ;; converse is not true: /usr/bin/rsh could be either one, so
 204       ;; check that last.
 205       ((file-exists-p "/usr/ucb/remsh") "/usr/ucb/remsh")
 206       ((file-exists-p "/usr/bsd/remsh") "/usr/bsd/remsh")
 207       ((file-exists-p "/bin/remsh") "/bin/remsh")
 208       ((file-exists-p "/usr/bin/remsh") "/usr/bin/remsh")
 209       ((file-exists-p "/usr/local/bin/remsh") "/usr/local/bin/remsh")
 210       ((file-exists-p "/usr/ucb/rsh") "/usr/ucb/rsh")
 211       ((file-exists-p "/usr/bsd/rsh") "/usr/bsd/rsh")
 212       ((file-exists-p "/usr/local/bin/rsh") "/usr/local/bin/rsh")
 213       ((file-exists-p "/usr/bin/rcmd") "/usr/bin/rcmd")
 214       ((file-exists-p "/bin/rcmd") "/bin/rcmd")
 215       ((file-exists-p "/bin/rsh") "/bin/rsh")
 216       ((file-exists-p "/usr/bin/rsh") "/usr/bin/rsh")
 217       (t "rsh")))
 218
 219     (funcall
 220      l 'manual-program
 221      ;; Solaris 2 has both of these files; prefer /usr/ucb/man
 222      ;; because the other has nonstandard argument conventions.
 223      (if (file-exists-p "/usr/ucb/man")
 224          "/usr/ucb/man" "/usr/bin/man"))
 225
 226     (funcall
 227      l 'directory-abbrev-alist
 228      ;; Try to match various conventions for automounter temporary
 229      ;; mount points.  These temporary mount points may go away, so
 230      ;; it's important that we only try to read files under the
 231      ;; "advertised" mount point, rather than the temporary one, or it
 232      ;; will look like files have been deleted on us.  Whoever came up
 233      ;; with this design is clearly a moron of the first order, but
 234      ;; now we're stuck with it, no doubt until the end of time.
 235      ;;
 236      ;; For best results, automounter junk should go near the front of this
 237      ;; list, and other user translations should come after it.
 238      ;;
 239      ;; Our code handles the following empirically observed conventions:
 240      ;; /net is an actual directory! (some systems are not broken!)
 241      ;; /net/HOST -> /tmp_mnt/net/HOST (`standard' old Sun automounter)
 242      ;; /net/HOST -> /tmp_mnt/HOST (BSDI 4.0)
 243      ;; /net/HOST -> /a/HOST (Freebsd 2.2.x)
 244      ;; /net/HOST -> /amd/HOST (seen in amd sample config files)
 245      ;;
 246      ;; If your system has a different convention, you may have to change this.
 247      ;; Don't forget to send in a patch!
 248      (when (file-directory-p "/net")
 249        (append
 250         (when (file-directory-p "/tmp_mnt")
 251           (if (file-directory-p "/tmp_mnt/net")
 252               '(("\\`/tmp_mnt/net/" . "/net/"))
 253             '(("\\`/tmp_mnt/" . "/net/"))))
 254         (when (file-directory-p "/a")
 255           '(("\\`/a/" . "/net/")))
 256         (when (file-directory-p "/amd")
 257           '(("\\`/amd/" . "/net/")))
 258         )))
 259 ))
 260
 261 (if (running-temacs-p)
 262     (initialize-xemacs-paths))
 263
 264 ;;; paths.el ends here