Mercurial > emacs
comparison src/emacs.c @ 16865:0e79ed2e445b
(init_cmdargs): Allow `installation-directory'
to be set if either `lib-src' or `info' are found as its
subdirectories or siblings.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Mon, 13 Jan 1997 21:42:33 +0000 |
parents | c85f62b1b749 |
children | 7c030111c6bb |
comparison
equal
deleted
inserted
replaced
16864:59ed508195a4 | 16865:0e79ed2e445b |
---|---|
268 /* See if dir contains subdirs for use by Emacs. | 268 /* See if dir contains subdirs for use by Emacs. |
269 Check for the ones that would exist in a build directory, | 269 Check for the ones that would exist in a build directory, |
270 not including lisp and info. */ | 270 not including lisp and info. */ |
271 tem = Fexpand_file_name (build_string ("lib-src"), dir); | 271 tem = Fexpand_file_name (build_string ("lib-src"), dir); |
272 lib_src_exists = Ffile_exists_p (tem); | 272 lib_src_exists = Ffile_exists_p (tem); |
273 if (!NILP (lib_src_exists)) | 273 |
274 /* MSDOS installations frequently remove lib-src, but we still | |
275 must set installation-directory, or else info won't find | |
276 its files (it uses the value of installation-directory). */ | |
277 tem = Fexpand_file_name (build_string ("info"), dir); | |
278 info_exists = Ffile_exists_p (tem); | |
279 | |
280 if (!NILP (lib_src_exists) || !NILP (info_exists)) | |
274 { | 281 { |
275 tem = Fexpand_file_name (build_string ("etc"), dir); | 282 tem = Fexpand_file_name (build_string ("etc"), dir); |
276 etc_exists = Ffile_exists_p (tem); | 283 etc_exists = Ffile_exists_p (tem); |
277 if (!NILP (etc_exists)) | 284 if (!NILP (etc_exists)) |
278 { | 285 { |
283 } | 290 } |
284 | 291 |
285 /* See if dir's parent contains those subdirs. */ | 292 /* See if dir's parent contains those subdirs. */ |
286 tem = Fexpand_file_name (build_string ("../lib-src"), dir); | 293 tem = Fexpand_file_name (build_string ("../lib-src"), dir); |
287 lib_src_exists = Ffile_exists_p (tem); | 294 lib_src_exists = Ffile_exists_p (tem); |
288 if (!NILP (lib_src_exists)) | 295 |
296 tem = Fexpand_file_name (build_string ("../info"), dir); | |
297 info_exists = Ffile_exists_p (tem); | |
298 | |
299 if (!NILP (lib_src_exists) || !NILP (info_exists)) | |
289 { | 300 { |
290 tem = Fexpand_file_name (build_string ("../etc"), dir); | 301 tem = Fexpand_file_name (build_string ("../etc"), dir); |
291 etc_exists = Ffile_exists_p (tem); | 302 etc_exists = Ffile_exists_p (tem); |
292 if (!NILP (etc_exists)) | 303 if (!NILP (etc_exists)) |
293 { | 304 { |