Mercurial > emacs
changeset 23559:989c9cb875e3
(check_windows_init_file): Also look in load path specified
in environment.
| author | Geoff Voelker <voelker@cs.washington.edu> |
|---|---|
| date | Tue, 27 Oct 1998 23:42:26 +0000 |
| parents | e4ba6b999a35 |
| children | 6414b7085648 |
| files | src/w32.c |
| diffstat | 1 files changed, 5 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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);