diff options
author | Richard M. Stallman <rms@gnu.org> | 1995-04-08 20:58:37 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1995-04-08 20:58:37 +0000 |
commit | 607becabad17c626e7b578906be983d67fcd8db9 (patch) | |
tree | d05fcca047769b0810a82f4b7ea574820ca6f9eb /src/lread.c | |
parent | efc56aa34ab092429b512cf793b0973877714d45 (diff) | |
download | emacs-607becabad17c626e7b578906be983d67fcd8db9.tar.gz |
(read_escape): Undo Nov 15 change.
(init_lread): Add site-lisp under the installation dir
to Vload_path if that exists.
Diffstat (limited to 'src/lread.c')
-rw-r--r-- | src/lread.c | 12 |
1 files 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)); + } } } } |