Mercurial > emacs

changeset 13601:0a091134e047

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Vsource_directory): New variable. (init_lread): Initialize it. (syms_of_lread): Set up Lisp var.
author Richard M. Stallman <rms@gnu.org>
date Mon, 20 Nov 1995 06:38:57 +0000
parents 4c8f65a17dc9
children bdb249cb57a7
files src/lread.c
diffstat 1 files changed, 11 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/src/lread.c	Mon Nov 20 05:39:19 1995 +0000
+++ b/src/lread.c	Mon Nov 20 06:38:57 1995 +0000
@@ -71,6 +71,9 @@
 /* non-zero if inside `load' */
 int load_in_progress;
 
+/* Directory in which the sources were found.  */
+Lisp_Object Vsource_directory;
+
 /* Search path for files to be loaded. */
 Lisp_Object Vload_path;
 
@@ -2244,6 +2247,10 @@
       Lisp_Object dump_path;
 
       dump_path = decode_env_path (0, PATH_DUMPLOADSEARCH);
+
+      Vsource_directory = Fexpand_file_name (build_string ("../"),
+					     Fcar (dump_path));
+
       if (! NILP (Fequal (dump_path, Vload_path)))
 	{
 	  Vload_path = decode_env_path (0, normal);
@@ -2407,6 +2414,10 @@
 This is useful when the file being loaded is a temporary copy.");
   load_force_doc_strings = 0;
 
+  DEFVAR_LISP ("source-directory", &Vsource_directory,
+     "Directory in which Emacs sources were found when Emacs was built.\n\
+You cannot count on them to still be there!");
+  Vsource_directory = Qnil;
   load_descriptor_list = Qnil;
   staticpro (&load_descriptor_list);