Mercurial > emacs

changeset 11311:864c3dea8754

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(read_escape): Undo Nov 15 change. (init_lread): Add site-lisp under the installation dir to Vload_path if that exists.
author Richard M. Stallman <rms@gnu.org>
date Sat, 08 Apr 1995 20:58:37 +0000
parents 3466b44b0a11
children f48922d85166
files src/lread.c
diffstat 1 files changed, 10 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/src/lread.c	Sat Apr 08 20:48:07 1995 +0000
+++ b/src/lread.c	Sat Apr 08 20:58:37 1995 +0000
@@ -1004,8 +1004,6 @@
       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 @@
 		/* 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));
+		}
 	    }
 	}
     }