From 96ef7d42fb4cbebbc42c096c7d1a7261069554e3 Mon Sep 17 00:00:00 2001 From: Geoff Voelker Date: Tue, 27 Oct 1998 23:42:26 +0000 Subject: [PATCH] (check_windows_init_file): Also look in load path specified in environment. --- src/w32.c | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/src/w32.c b/src/w32.c index 8bf8f042fcf..8ec2670a2bf 100644 --- a/src/w32.c +++ b/src/w32.c @@ -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); -- 2.39.2