Mercurial > emacs
changeset 57553:6530172cc0bf
(news-directory): Renamed from news-path. Old name alias.
(rmail-spool-directory): Use defvar.
(sendmail-program): Use defcustom.
(remote-shell-program): Use defcustom.
(term-file-prefix): Use defvar.
(abbrev-file-name): Use defvar.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 17 Oct 2004 07:13:37 +0000 |
| parents | 27c5fd98f808 |
| children | c31c5cdcfa13 |
| files | lisp/paths.el |
| diffstat | 1 files changed, 13 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/paths.el Sun Oct 17 07:11:15 2004 +0000 +++ b/lisp/paths.el Sun Oct 17 07:13:37 2004 +0000 @@ -101,11 +101,12 @@ 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.") +(defalias 'news-path 'news-directory) (defvar news-inews-program (cond ((file-exists-p "/usr/bin/inews") "/usr/bin/inews") @@ -136,7 +137,7 @@ :group 'rmail :version "21.1") -(defconst rmail-spool-directory +(defvar rmail-spool-directory (cond ((string-match "^[^-]+-[^-]+-sco3.2v4" system-configuration) "/usr/spool/mail/") ;; On The Bull DPX/2 /usr/spool/mail is used although @@ -157,15 +158,17 @@ "Name of directory used by system mailer for delivering new mail. Its name should end with a slash.") -(defconst sendmail-program +(defcustom 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.") + "Program used to send messages." + :group 'mail + :type 'file) -(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,14 +189,16 @@ ((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 (if (eq system-type 'vax-vms) "[.term]" "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 +(defvar abbrev-file-name (if (eq system-type 'vax-vms) "~/abbrev.def" (convert-standard-filename "~/.abbrev_defs"))