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);