comparison lisp/paths.el @ 3213:1fdd5c6dc6ba

(manual-formatted-dirlist, manual-formatted-dir-prefix): Deleted.
author Richard M. Stallman <rms@gnu.org>
date Fri, 28 May 1993 19:19:05 +0000
parents 4a1a003ded62
children 7fb1204b22de
comparison
equal deleted inserted replaced
3212:cd8f8468a190 3213:1fdd5c6dc6ba
124 ;; because the other has nonstandard argument conventions. 124 ;; because the other has nonstandard argument conventions.
125 (defconst manual-program (if (file-exists-p "/usr/ucb/man") 125 (defconst manual-program (if (file-exists-p "/usr/ucb/man")
126 "/usr/ucb/man" "/usr/bin/man") 126 "/usr/ucb/man" "/usr/bin/man")
127 "Program to run to print man pages.") 127 "Program to run to print man pages.")
128 128
129 ;; Note that /usr/man/cat is not really right for this on sysV; nothing is,
130 ;; judging by the list of directories below. You can't get the dir
131 ;; for a section by appending the section number to any one prefix.
132 ;; But it turns out that a string that's wrong does no harm here.
133 (defconst manual-formatted-dir-prefix
134 (if (file-exists-p "/usr/man/cat.C") ;; Check for Xenix.
135 "/usr/man/cat." "/usr/man/cat")
136 "Prefix for directories containing formatted manual pages.
137 Append a section-number or section-name to get a directory name.")
138
139 (defconst manual-formatted-dirlist
140 (cond ((eq system-type 'hpux)
141 '("/usr/man/cat1" "/usr/man/cat2" "/usr/man/cat3"
142 "/usr/man/cat4" "/usr/man/cat5" "/usr/man/cat6"
143 "/usr/man/cat7" "/usr/man/cat1m" "/usr/man/cat8"
144 "/usr/local/man/cat1" "/usr/local/man/cat2" "/usr/local/man/cat3"
145 "/usr/local/man/cat4" "/usr/local/man/cat5" "/usr/local/man/cat6"
146 "/usr/local/man/cat7" "/usr/local/man/cat1m" "/usr/local/man/cat8"
147 "/usr/contrib/man/cat1" "/usr/contrib/man/cat2"
148 "/usr/contrib/man/cat3" "/usr/contrib/man/cat4"
149 "/usr/contrib/man/cat5" "/usr/contrib/man/cat6"
150 "/usr/contrib/man/cat7" "/usr/contrib/man/cat1m"
151 "/usr/contrib/man/cat8"))
152 ((file-exists-p "/usr/man/cat.C") ; Xenix
153 '("/usr/man/cat.C" "/usr/man/cat.CP" "/usr/man/cat.CT"
154 "/usr/man/cat.DOS/" "/usr/man/cat.F" "/usr/man/cat.HW"
155 "/usr/man/cat.M/" "/usr/man/cat.S" "/usr/man/cat.LOCAL"))
156 ((file-exists-p "/usr/man/cat3/cat3")
157 ;; This is for UMAX.
158 '("/usr/man/cat1" "/usr/man/cat2"
159 "/usr/man/cat3" "/usr/man/cat3/cat3"
160 "/usr/man/cat3/cat3b" "/usr/man/cat3/cat3c"
161 "/usr/man/cat3/cat3f" "/usr/man/cat3/cat3m"
162 "/usr/man/cat3/cat3n" "/usr/man/cat3/cat3p"
163 "/usr/man/cat3/cat3s" "/usr/man/cat3/cat3u"
164 "/usr/man/cat3/cat3x" "/usr/man/cat4"
165 "/usr/man/cat5" "/usr/man/cat6"
166 "/usr/man/cat7" "/usr/man/cat8"
167 "/usr/man/catl" "/usr/man/catn"))
168 ((file-exists-p "/usr/man/cat1")
169 '("/usr/man/cat1" "/usr/man/cat2" "/usr/man/cat3"
170 "/usr/man/cat4" "/usr/man/cat5" "/usr/man/cat6"
171 "/usr/man/cat7" "/usr/man/cat8" "/usr/man/catl" "/usr/man/catn"))
172 (t
173 '("/usr/catman/u_man/man1" "/usr/catman/u_man/man6"
174 "/usr/catman/p_man/man2" "/usr/catman/p_man/man3"
175 "/usr/catman/p_man/man4" "/usr/catman/p_man/man5"
176 "/usr/catman/a_man/man1" "/usr/catman/a_man/man7"
177 "/usr/catman/a_man/man8" "/usr/catman/local"
178 "/usr/catman/a_man/man8" "/usr/catman/local/man1"
179 "/usr/catman/local/man2" "/usr/catman/local/man3"
180 "/usr/catman/local/man4" "/usr/catman/local/man5"
181 "/usr/catman/local/man6" "/usr/catman/local/man7"
182 "/usr/catman/local/man8")))
183 "List of directories containing formatted manual pages.")
184
185 (defconst abbrev-file-name 129 (defconst abbrev-file-name
186 (if (eq system-type 'vax-vms) 130 (if (eq system-type 'vax-vms)
187 "~/abbrev.def" 131 "~/abbrev.def"
188 "~/.abbrev_defs") 132 "~/.abbrev_defs")
189 "*Default name of file to read abbrevs from.") 133 "*Default name of file to read abbrevs from.")