Mercurial > hg > xemacs-beta

comparison src/lread.c @ 373:6240c7796c7a r21-2b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2b2
author cvs
date Mon, 13 Aug 2007 11:04:06 +0200
parents cc15677e0335
children 8626e4521993
comparison
equal deleted inserted replaced
372:49e1ed2d7ed8 373:6240c7796c7a
88 int load_warn_when_source_newer; 88 int load_warn_when_source_newer;
89 /* Whether Fload_internal() should check whether the .elc doesn't exist */ 89 /* Whether Fload_internal() should check whether the .elc doesn't exist */
90 int load_warn_when_source_only; 90 int load_warn_when_source_only;
91 /* Whether Fload_internal() should ignore .elc files when no suffix is given */ 91 /* Whether Fload_internal() should ignore .elc files when no suffix is given */
92 int load_ignore_elc_files; 92 int load_ignore_elc_files;
93
94 /* Directory in which the sources were found. */
95 Lisp_Object Vsource_directory;
96 93
97 /* Search path for files to be loaded. */ 94 /* Search path for files to be loaded. */
98 Lisp_Object Vload_path; 95 Lisp_Object Vload_path;
99 96
100 /* Search path for files when dumping. */ 97 /* Search path for files when dumping. */
794 791
795 /*#ifdef DEBUG_XEMACS*/ 792 /*#ifdef DEBUG_XEMACS*/
796 if (purify_flag && noninteractive) 793 if (purify_flag && noninteractive)
797 { 794 {
798 if (EQ (last_file_loaded, file)) 795 if (EQ (last_file_loaded, file))
799 message_append (" (%d)", purespace_usage() - pure_usage); 796 message_append (" (%ld)",
797 (unsigned long) (purespace_usage() - pure_usage));
800 else 798 else
801 message ("Loading %s ...done (%d)", XSTRING_DATA (file), 799 message ("Loading %s ...done (%ld)", XSTRING_DATA (file),
802 purespace_usage() - pure_usage); 800 (unsigned long) (purespace_usage() - pure_usage));
803 } 801 }
804 /*#endif / * DEBUG_XEMACS */ 802 /*#endif / * DEBUG_XEMACS */
805 803
806 if (!noninteractive) 804 if (!noninteractive)
807 PRINT_LOADING_MESSAGE ("done"); 805 PRINT_LOADING_MESSAGE ("done");
3151 Non-nil means `load' should force-load all dynamic doc strings. 3149 Non-nil means `load' should force-load all dynamic doc strings.
3152 This is useful when the file being loaded is a temporary copy. 3150 This is useful when the file being loaded is a temporary copy.
3153 */ ); 3151 */ );
3154 load_force_doc_strings = 0; 3152 load_force_doc_strings = 0;
3155 3153
3156 DEFVAR_LISP ("source-directory", &Vsource_directory /*
3157 Directory in which XEmacs sources were found when XEmacs was built.
3158 You cannot count on them to still be there!
3159 */ );
3160 Vsource_directory = Qnil;
3161
3162 /* See read_escape(). */ 3154 /* See read_escape(). */
3163 #if 0 3155 #if 0
3164 /* Used to be named `puke-on-fsf-keys' */ 3156 /* Used to be named `puke-on-fsf-keys' */
3165 DEFVAR_BOOL ("fail-on-bucky-bit-character-escapes", 3157 DEFVAR_BOOL ("fail-on-bucky-bit-character-escapes",
3166 &fail_on_bucky_bit_character_escapes /* 3158 &fail_on_bucky_bit_character_escapes /*