aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorJuanma Barranquero2007-06-08 19:57:46 +0000
committerJuanma Barranquero2007-06-08 19:57:46 +0000
commita74d1c97ee9c08955735db3652ba485352c48379 (patch)
tree9e1f60ca30837353c5e957457bf2129a55f520d8 /src
parent2c668b9a664b677f97e12b2725b88eceb30d94d9 (diff)
downloademacs-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.c5
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
4070in order to do so. However, if you want to customize which suffixes 4070in order to do so. However, if you want to customize which suffixes
4071the loading functions recognize as compression suffixes, you should 4071the loading functions recognize as compression suffixes, you should
4072customize `jka-compr-load-suffixes' rather than the present variable. */); 4072customize `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'. */);