Mercurial > hg > xemacs-beta
comparison src/lread.c @ 312:d1b52dcaa789 r21-0b54
Import from CVS: tag r21-0b54
author | cvs |
---|---|
date | Mon, 13 Aug 2007 10:43:55 +0200 |
parents | 9ea74add5d37 |
children | 7c94d56991e1 |
comparison
equal
deleted
inserted
replaced
311:b4ad76366919 | 312:d1b52dcaa789 |
---|---|
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. */ |
3152 Non-nil means `load' should force-load all dynamic doc strings. | 3149 Non-nil means `load' should force-load all dynamic doc strings. |
3153 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. |
3154 */ ); | 3151 */ ); |
3155 load_force_doc_strings = 0; | 3152 load_force_doc_strings = 0; |
3156 | 3153 |
3157 DEFVAR_LISP ("source-directory", &Vsource_directory /* | |
3158 Directory in which XEmacs sources were found when XEmacs was built. | |
3159 You cannot count on them to still be there! | |
3160 */ ); | |
3161 Vsource_directory = Qnil; | |
3162 | |
3163 /* See read_escape(). */ | 3154 /* See read_escape(). */ |
3164 #if 0 | 3155 #if 0 |
3165 /* Used to be named `puke-on-fsf-keys' */ | 3156 /* Used to be named `puke-on-fsf-keys' */ |
3166 DEFVAR_BOOL ("fail-on-bucky-bit-character-escapes", | 3157 DEFVAR_BOOL ("fail-on-bucky-bit-character-escapes", |
3167 &fail_on_bucky_bit_character_escapes /* | 3158 &fail_on_bucky_bit_character_escapes /* |