From: Richard M. Stallman Date: Sat, 8 Apr 1995 20:58:37 +0000 (+0000) Subject: (read_escape): Undo Nov 15 change. X-Git-Tag: emacs-19.34~4547 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c478f98c692d4d43860da2836352d81c0beca5a7;p=emacs.git (read_escape): Undo Nov 15 change. (init_lread): Add site-lisp under the installation dir to Vload_path if that exists. --- 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)); + } } } }