From c478f98c692d4d43860da2836352d81c0beca5a7 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 8 Apr 1995 20:58:37 +0000 Subject: [PATCH] (read_escape): Undo Nov 15 change. (init_lread): Add site-lisp under the installation dir to Vload_path if that exists. --- src/lread.c | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) diff --git a/src/lread.c b/src/lread.c index b7c1706cb8e..57231df36e6 100644 --- a/src/lread.c +++ b/src/lread.c @@ -1004,8 +1004,6 @@ read_escape (readcharfun) c = READCHAR; if (c == '\\') c = read_escape (readcharfun); - if ((c & 0xff) >= 'a' && (c & 0xff) <= 'z') - return c - ('a' - 'A'); return c | shift_modifier; case 'H': @@ -2046,6 +2044,16 @@ init_lread () /* That dir doesn't exist, so add the build-time Lisp dirs instead. */ Vload_path = nconc2 (Vload_path, dump_path); + + /* Add site-list under the installation dir, if it exists. */ + tem = Fexpand_file_name (build_string ("site-lisp"), + Vinstallation_directory); + tem1 = Ffile_exists_p (tem); + if (!NILP (tem1)) + { + if (NILP (Fmember (tem, Vload_path))) + Vload_path = nconc2 (Vload_path, Fcons (tem, Qnil)); + } } } } -- 2.39.5