diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/lread.c | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/lread.c b/src/lread.c index 088f729075d..943a55f31f8 100644 --- a/src/lread.c +++ b/src/lread.c | |||
| @@ -1199,7 +1199,7 @@ openp (path, str, suffixes, storeptr, predicate) | |||
| 1199 | fn = (char *) alloca (fn_size = 100 + want_size); | 1199 | fn = (char *) alloca (fn_size = 100 + want_size); |
| 1200 | 1200 | ||
| 1201 | /* Loop over suffixes. */ | 1201 | /* Loop over suffixes. */ |
| 1202 | for (tail = NILP (suffixes) ? Fcons (build_string (""), Qnil) : suffixes; | 1202 | for (tail = NILP (suffixes) ? Fcons (empty_unibyte_string, Qnil) : suffixes; |
| 1203 | CONSP (tail); tail = XCDR (tail)) | 1203 | CONSP (tail); tail = XCDR (tail)) |
| 1204 | { | 1204 | { |
| 1205 | int lsuffix = SBYTES (XCAR (tail)); | 1205 | int lsuffix = SBYTES (XCAR (tail)); |
| @@ -4070,8 +4070,7 @@ and, if so, which suffixes they should try to append to the file name | |||
| 4070 | in order to do so. However, if you want to customize which suffixes | 4070 | in order to do so. However, if you want to customize which suffixes |
| 4071 | the loading functions recognize as compression suffixes, you should | 4071 | the loading functions recognize as compression suffixes, you should |
| 4072 | customize `jka-compr-load-suffixes' rather than the present variable. */); | 4072 | customize `jka-compr-load-suffixes' rather than the present variable. */); |
| 4073 | /* We don't use empty_string because it's not initialized yet. */ | 4073 | Vload_file_rep_suffixes = Fcons (empty_unibyte_string, Qnil); |
| 4074 | Vload_file_rep_suffixes = Fcons (build_string (""), Qnil); | ||
| 4075 | 4074 | ||
| 4076 | DEFVAR_BOOL ("load-in-progress", &load_in_progress, | 4075 | DEFVAR_BOOL ("load-in-progress", &load_in_progress, |
| 4077 | doc: /* Non-nil iff inside of `load'. */); | 4076 | doc: /* Non-nil iff inside of `load'. */); |