Mercurial > emacs
comparison src/callproc.c @ 7465:fccf9d4df7bb
(init_callproc): Never set Vdata_directory based on
the executable's location. But maybe set it from source dir.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 12 May 1994 06:35:19 +0000 |
| parents | e0ffa47f2ed4 |
| children | b7d23c08750c |
comparison
equal
deleted
inserted
replaced
| 7464:1e6adb18271b | 7465:fccf9d4df7bb |
|---|---|
| 849 Do so if ../etc exists and has our DOC-... file in it. */ | 849 Do so if ../etc exists and has our DOC-... file in it. */ |
| 850 if (data_dir == 0) | 850 if (data_dir == 0) |
| 851 { | 851 { |
| 852 tem = Fexpand_file_name (build_string ("etc"), | 852 tem = Fexpand_file_name (build_string ("etc"), |
| 853 Vinstallation_directory); | 853 Vinstallation_directory); |
| 854 Vdoc_directory = Vdata_directory = Ffile_name_as_directory (tem); | 854 Vdoc_directory = Ffile_name_as_directory (tem); |
| 855 } | 855 } |
| 856 } | |
| 857 } | |
| 858 | |
| 859 /* Look for the files that should be in etc. We don't use | |
| 860 Vinstallation_directory, because these files are never installed | |
| 861 in /bin near the executable, and they are never in the build | |
| 862 directory when that's different from the source directory. | |
| 863 | |
| 864 Instead, if these files are not in the nominal place, we try the | |
| 865 source directory. */ | |
| 866 if (data_dir == 0) | |
| 867 { | |
| 868 Lisp_Object tem, tem1, newdir; | |
| 869 | |
| 870 tem = Fexpand_file_name (build_string ("GNU"), Vdata_directory); | |
| 871 tem1 = Ffile_exists_p (tem); | |
| 872 if (NILP (tem1)) | |
| 873 { | |
| 874 newdir = Fexpand_file_name (build_string ("../etc/"), | |
| 875 build_string (PATH_DUMPLOADSEARCH)); | |
| 876 tem = Fexpand_file_name (build_string ("GNU"), newdir); | |
| 877 tem1 = Ffile_exists_p (tem); | |
| 878 if (!NILP (tem1)) | |
| 879 Vdata_directory = newdir; | |
| 856 } | 880 } |
| 857 } | 881 } |
| 858 #endif | 882 #endif |
| 859 | 883 |
| 860 tempdir = Fdirectory_file_name (Vexec_directory); | 884 tempdir = Fdirectory_file_name (Vexec_directory); |
