# HG changeset patch
# User Geoff Voelker <voelker@cs.washington.edu>
# Date 909531746 0
# Node ID 989c9cb875e3537677fb4fad25acedaf7d4b2364
# Parent  e4ba6b999a351b135fcd3dacfcef97c05525af99
(check_windows_init_file): Also look in load path specified
in environment.

diff -r e4ba6b999a35 -r 989c9cb875e3 src/w32.c
--- a/src/w32.c	Tue Oct 27 20:10:19 1998 +0000
+++ b/src/w32.c	Tue Oct 27 23:42:26 1998 +0000
@@ -3027,14 +3027,17 @@
   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);