/[emacs]/emacs/lisp/paths.el
ViewVC logotype

Diff of /emacs/lisp/paths.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.65.6.1 by handa, Fri Apr 16 12:50:08 2004 UTC revision 1.65.6.2 by miles, Fri Oct 22 10:13:29 2004 UTC
# Line 101  This variable `Info-default-directory-li Line 101  This variable `Info-default-directory-li
101  for initializing `Info-directory-list' when Info is started, unless  for initializing `Info-directory-list' when Info is started, unless
102  the environment variable INFOPATH is set.")  the environment variable INFOPATH is set.")
103    
104  (defvar news-path  (defvar news-directory
105    (if (file-exists-p "/usr/spool/news/")    (if (file-exists-p "/usr/spool/news/")
106        "/usr/spool/news/"        "/usr/spool/news/"
107      "/var/spool/news/")      "/var/spool/news/")
108    "The root directory below which all news files are stored.")    "The root directory below which all news files are stored.")
109    (defvaralias 'news-path 'news-directory)
110    
111  (defvar news-inews-program  (defvar news-inews-program
112    (cond ((file-exists-p "/usr/bin/inews") "/usr/bin/inews")    (cond ((file-exists-p "/usr/bin/inews") "/usr/bin/inews")
# Line 136  The `ORGANIZATION' environment variable Line 137  The `ORGANIZATION' environment variable
137    :group 'rmail    :group 'rmail
138    :version "21.1")    :version "21.1")
139    
140  (defconst rmail-spool-directory  (defvar rmail-spool-directory
141    (cond ((string-match "^[^-]+-[^-]+-sco3.2v4" system-configuration)    (cond ((string-match "^[^-]+-[^-]+-sco3.2v4" system-configuration)
142           "/usr/spool/mail/")           "/usr/spool/mail/")
143          ;; On The Bull DPX/2 /usr/spool/mail is used although          ;; On The Bull DPX/2 /usr/spool/mail is used although
# Line 157  The `ORGANIZATION' environment variable Line 158  The `ORGANIZATION' environment variable
158    "Name of directory used by system mailer for delivering new mail.    "Name of directory used by system mailer for delivering new mail.
159  Its name should end with a slash.")  Its name should end with a slash.")
160    
161  (defconst sendmail-program  (defcustom sendmail-program
162    (cond    (cond
163      ((file-exists-p "/usr/sbin/sendmail") "/usr/sbin/sendmail")      ((file-exists-p "/usr/sbin/sendmail") "/usr/sbin/sendmail")
164      ((file-exists-p "/usr/lib/sendmail") "/usr/lib/sendmail")      ((file-exists-p "/usr/lib/sendmail") "/usr/lib/sendmail")
165      ((file-exists-p "/usr/ucblib/sendmail") "/usr/ucblib/sendmail")      ((file-exists-p "/usr/ucblib/sendmail") "/usr/ucblib/sendmail")
166      (t "fakemail"))                     ;In ../etc, to interface to /bin/mail.      (t "fakemail"))                     ;In ../etc, to interface to /bin/mail.
167    "Program used to send messages.")    "Program used to send messages."
168      :group 'mail
169      :type 'file)
170    
171  (defconst remote-shell-program  (defcustom remote-shell-program
172    (cond    (cond
173     ;; Some systems use rsh for the remote shell; others use that name for the     ;; Some systems use rsh for the remote shell; others use that name for the
174     ;; restricted shell and use remsh for the remote shell.  Let's try to guess     ;; restricted shell and use remsh for the remote shell.  Let's try to guess
# Line 186  Its name should end with a slash.") Line 189  Its name should end with a slash.")
189     ((file-exists-p "/bin/rsh") "/bin/rsh")     ((file-exists-p "/bin/rsh") "/bin/rsh")
190     ((file-exists-p "/usr/bin/rsh") "/usr/bin/rsh")     ((file-exists-p "/usr/bin/rsh") "/usr/bin/rsh")
191     (t "rsh"))     (t "rsh"))
192    "File name for remote-shell program (often rsh or remsh).")    "File name for remote-shell program (often rsh or remsh)."
193      :group 'environment
194      :type 'file)
195    
196  (defconst term-file-prefix (if (eq system-type 'vax-vms) "[.term]" "term/") "\  (defvar term-file-prefix (if (eq system-type 'vax-vms) "[.term]" "term/") "\
197  If non-nil, Emacs startup does (load (concat term-file-prefix (getenv \"TERM\")))  If non-nil, Emacs startup does (load (concat term-file-prefix (getenv \"TERM\")))
198  You may set this variable to nil in your `.emacs' file if you do not wish  You may set this variable to nil in your `.emacs' file if you do not wish
199  the terminal-initialization file to be loaded.")  the terminal-initialization file to be loaded.")
200    
201  (defconst abbrev-file-name  (defvar abbrev-file-name
202    (if (eq system-type 'vax-vms)    (if (eq system-type 'vax-vms)
203        "~/abbrev.def"        "~/abbrev.def"
204      (convert-standard-filename "~/.abbrev_defs"))      (convert-standard-filename "~/.abbrev_defs"))

Legend:
Removed from v.1.65.6.1  
changed lines
  Added in v.1.65.6.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26