From 1521a8fa052d14e7addbf31087d4c7ed51a57e30 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 20 Nov 1995 06:38:57 +0000 Subject: [PATCH] (Vsource_directory): New variable. (init_lread): Initialize it. (syms_of_lread): Set up Lisp var. --- src/lread.c | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/src/lread.c b/src/lread.c index 67d2b7fee21..9923967c98b 100644 --- a/src/lread.c +++ b/src/lread.c @@ -71,6 +71,9 @@ extern Lisp_Object Qevent_symbol_element_mask; /* 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 @@ init_lread () 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 @@ The default is nil, which means use the function `read'."); 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); -- 2.39.2