Return to paths.el CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / emacs / lisp

Annotation of 43BSD/contrib/emacs/lisp/paths.el, revision 1.1.1.1

1.1       root        1: ;; These are default settings for names of certain files and directories
                      2: ;; that Emacs needs to refer to from time to time.
                      3: 
                      4: ;; If these settings are not right, override them with `setq'
                      5: ;; in site-init.el.  Do not change this file.
                      6: 
                      7: (defvar Info-directory (expand-file-name "../info/" exec-directory))
                      8: 
                      9: (defvar news-path "/usr/spool/news/"
                     10:   "The root directory below which all news files are stored.")
                     11: (defvar news-inews-program
                     12:   (cond ((file-exists-p "/usr/bin/inews") "/usr/bin/inews")
                     13:        ((file-exists-p "/usr/local/inews") "/usr/local/inews")
                     14:        ((file-exists-p "/usr/local/bin/inews") "/usr/local/bin/inews")
                     15:        ((file-exists-p "/usr/lib/news/inews") "/usr/lib/news/inews")
                     16:        (t "inews"))
                     17:   "Program to post news.")
                     18: 
                     19: (defvar mh-progs
                     20:   (cond ((file-exists-p "/usr/new/mh") "/usr/new/mh/")
                     21:        (t "/usr/local/mh/"))
                     22:   "Directory containing MH commands")
                     23: (defvar mh-lib
                     24:   (cond ((file-exists-p "/usr/new/lib/mh") "/usr/new/lib/mh/")
                     25:        (t "/usr/local/lib/mh/"))
                     26:   "Directory of MH library")
                     27: 
                     28: (defconst rmail-file-name "~/RMAIL"
                     29:   "Name of user's primary mail file.")
                     30: 
                     31: (defconst rmail-spool-directory
                     32:   (if (memq system-type '(hpux usg-unix-v))
                     33:       "/usr/mail/"
                     34:     "/usr/spool/mail/")
                     35:   "Name of directory used by system mailer for delivering new mail.
                     36: Its name should end with a slash.")
                     37: 
                     38: (defconst rmail-primary-inbox-list 
                     39:   (if (memq system-type '(hpux usg-unix-v))
                     40:       '("~/mbox" "/usr/mail/$LOGNAME")
                     41:     '("~/mbox" "/usr/spool/mail/$USER"))
                     42:  "List of files which are inboxes for user's primary mail file ~/RMAIL.")
                     43: 
                     44: (defconst sendmail-program
                     45:   (if (or (eq system-type 'berkeley-unix)
                     46:          (file-exists-p "/usr/lib/sendmail"))
                     47:       "/usr/lib/sendmail"
                     48:     "fakemail")                        ;In ../etc, to interface to /bin/mail.
                     49:   "Program used to send messages.")
                     50: 
                     51: (defconst term-file-prefix "term/"
                     52:   "If non-nil, Emacs startup does (load (concat term-file-prefix (getenv \"TERM\")))
                     53: You may set this variable to nil in your `.emacs' file if you do not wish
                     54: the terminal-initialization file to be loaded.")

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.