X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=blobdiff_plain;f=src%2Flread.c;h=98516f09bae8a027b29941ba8ac2adbbcdeb3b8e;hp=9c0fa8bd4e1b52869d3fd88d347c71d60c6e4752;hb=669565bfdc5d704dfb1d5ac1a0ec01fb3615a1ae;hpb=72a705551741d6f85a40eea486c222bac482d8dc

diff --git a/src/lread.c b/src/lread.c
index 9c0fa8b..98516f0 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -91,9 +91,6 @@ int load_warn_when_source_only;
 /* Whether Fload_internal() should ignore .elc files when no suffix is given */
 int load_ignore_elc_files;
 
-/* Directory in which the sources were found.  */
-Lisp_Object Vsource_directory;
-
 /* Search path for files to be loaded. */
 Lisp_Object Vload_path;
 
@@ -796,10 +793,11 @@ encoding detection or end-of-line detection.
   if (purify_flag && noninteractive)
     {
       if (EQ (last_file_loaded, file))
-	message_append (" (%d)", purespace_usage() - pure_usage);
+	message_append (" (%ld)", 
+			(unsigned long) (purespace_usage() - pure_usage));
       else
-	message ("Loading %s ...done (%d)", XSTRING_DATA (file),
-		 purespace_usage() - pure_usage);
+	message ("Loading %s ...done (%ld)", XSTRING_DATA (file),
+		 (unsigned long) (purespace_usage() - pure_usage));
     }
 /*#endif / * DEBUG_XEMACS */
 
@@ -3153,12 +3151,6 @@ 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 XEmacs sources were found when XEmacs was built.
-You cannot count on them to still be there!
-*/ );
-  Vsource_directory = Qnil;
-
   /* See read_escape().  */
 #if 0
   /* Used to be named `puke-on-fsf-keys' */