Mercurial > emacs

comparison lisp/paths.el @ 855:a3068bc219cf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
entered into RCS
author Richard M. Stallman <rms@gnu.org>
date Thu, 23 Jul 1992 18:27:13 +0000
parents 20674ae6bf52
children c3d069d83cc6
comparison
equal deleted inserted replaced
854:0b4f3a91f207 855:a3068bc219cf
68 (defvar gnus-your-organization "" 68 (defvar gnus-your-organization ""
69 "Your organization like: \"Fujitsu Laboratories Ltd., Kawasaki, Japan.\" 69 "Your organization like: \"Fujitsu Laboratories Ltd., Kawasaki, Japan.\"
70 The `ORGANIZATION' environment variable is used instead if defined.") 70 The `ORGANIZATION' environment variable is used instead if defined.")
71 71
72 (defvar mh-progs 72 (defvar mh-progs
73 (cond ((file-directory-p "/usr/new/mh") "/usr/new/mh/") 73 (cond ((file-directory-p "/usr/bin/mh/") "/usr/bin/mh/") ;Ultrix 4.2
74 ((file-directory-p "/usr/local/bin/mh") "/usr/local/bin/mh/") 74 ((file-directory-p "/usr/new/mh/") "/usr/new/mh/") ;Ultrix <4.2
75 ((file-directory-p "/usr/local/mh/") "/usr/local/mh/") 75 ((file-directory-p "/usr/local/bin/mh/") "/usr/local/bin/mh/")
76 (t "/usr/local/bin/")) 76 ((file-directory-p "/usr/local/mh/") "/usr/local/mh/")
77 "Directory containing MH commands") 77 (t "/usr/local/bin/"))
78 "Directory containing MH commands.")
78 79
79 (defvar mh-lib 80 (defvar mh-lib
80 (cond ((file-directory-p "/usr/new/lib/mh") "/usr/new/lib/mh/") 81 (cond ((file-directory-p "/usr/lib/mh/") "/usr/lib/mh/") ;Ultrix 4.2
81 ((file-directory-p "/usr/local/lib/mh") "/usr/local/lib/mh/") 82 ((file-directory-p "/usr/new/lib/mh/") "/usr/new/lib/mh/") ;Ultrix <4.2
82 (t "/usr/local/bin/mh/")) 83 ((file-directory-p "/usr/local/lib/mh/") "/usr/local/lib/mh/")
83 "Directory of MH library") 84 (t "/usr/local/bin/mh/"))
85 "Directory of MH library.")
84 86
85 (defvar rmail-file-name "~/RMAIL" 87 (defvar rmail-file-name "~/RMAIL"
86 "Name of user's primary mail file.") 88 "Name of user's primary mail file.")
87 89
88 (defvar gnus-startup-file "~/.newsrc" 90 (defvar gnus-startup-file "~/.newsrc"