diff options
| author | Juanma Barranquero | 2007-06-08 19:57:46 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2007-06-08 19:57:46 +0000 |
| commit | a74d1c97ee9c08955735db3652ba485352c48379 (patch) | |
| tree | 9e1f60ca30837353c5e957457bf2129a55f520d8 /src | |
| parent | 2c668b9a664b677f97e12b2725b88eceb30d94d9 (diff) | |
| download | emacs-a74d1c97ee9c08955735db3652ba485352c48379.tar.gz emacs-a74d1c97ee9c08955735db3652ba485352c48379.zip | |
(syms_of_lread, openp): Use empty_unibyte_string, not build_string.
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'. */); |