(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 b7c1706cb8e49901f2f956cd38a02fea4d23f8d4..57231df36e62b4dc8e3c8c709812fe6e5561e70d 100644 (file)
--- 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));
+               }
            }
        }
     }