mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-31 01:20:37 -08:00
Code Issues Projects Releases Wiki Activity

(check_windows_init_file): Also look in load path specified

Browse source 
in environment.
This commit is contained in:
Geoff Voelker 1998-10-27 23:42:26 +00:00
parent 5d84dd8714
commit 96ef7d42fb
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/w32.c
View file

@ -3027,14 +3027,17 @@ check_windows_init_file ()
if (!noninteractive && !inhibit_window_system)
{
extern Lisp_Object Vwindow_system, Vload_path, Qfile_exists_p;
Lisp_Object full_load_path;
Lisp_Object init_file;
int fd;
init_file = build_string ("term/w32-win");
fd = openp (Vload_path, init_file, ".el:.elc", NULL, 0);
full_load_path = Fcons (build_string (getenv ("EMACSLOADPATH")),
Vload_path);
fd = openp (full_load_path, init_file, ".el:.elc", NULL, 0);
if (fd < 0)
{
Lisp_Object load_path_print = Fprin1_to_string (Vload_path, Qnil);
Lisp_Object load_path_print = Fprin1_to_string (full_load_path, Qnil);
char *init_file_name = XSTRING (init_file)->data;
char *load_path = XSTRING (load_path_print)->data;
char *buffer = alloca (1024);