1 diff -Naur jed-B0.99-13/lib/site.sl jed-B0.99-13-p/lib/site.sl
2 --- jed-B0.99-13/lib/site.sl Mon Feb 19 19:33:19 2001
3 +++ jed-B0.99-13-p/lib/site.sl Thu Feb 22 09:35:05 2001
6 init_file = "SYS$LOGIN:";
7 if (NULL != getenv("JED_HOME")) init_file = "JED_HOME:";
9 - init_file = getenv ("JED_HOME");
10 - if (init_file == NULL)
12 - init_file = getenv("HOME");
13 - if (init_file == NULL) init_file = "";
16 init_file = dircat (init_file,
19 @@ -2788,6 +2780,33 @@
24 + init_file = getenv ("JED_HOME");
25 + if (init_file == NULL) {
26 + init_file = getenv("CONFIG_DIR");
27 + if (init_file == NULL) {
28 + init_file = getenv("HOME");
29 + if (init_file == NULL)
32 + init_file = dircat (init_file,
40 + if (strncmp(getenv("CONFIG_DIR"), "/",0))
41 + init_file = sprintf("%s/jed",getenv("CONFIG_DIR"));
43 + init_file = sprintf("%s/%s/jed",getenv("HOME"),
44 + getenv("CONFIG_DIR"));
45 + init_file = dircat (file,"jedrc");
50 % if first argument is -n then do NOT load init file