diff options
Diffstat (limited to 'src/lread.c')
| -rw-r--r-- | src/lread.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/lread.c b/src/lread.c index f32b60ad588..fabd2010035 100644 --- a/src/lread.c +++ b/src/lread.c @@ -2894,7 +2894,7 @@ read1 (Lisp_Object readcharfun, int *pch, bool first_in_list) Lisp_Object placeholder; Lisp_Object cell; - placeholder = Fcons (Qnil, Qnil); + placeholder = scoped_cons (Qnil, Qnil); cell = Fcons (make_number (n), placeholder); read_objects = Fcons (cell, read_objects); @@ -3374,7 +3374,7 @@ substitute_object_recurse (Lisp_Object object, Lisp_Object placeholder, Lisp_Obj substitute_in_interval contains part of the logic. */ INTERVAL root_interval = string_intervals (subtree); - Lisp_Object arg = Fcons (object, placeholder); + Lisp_Object arg = scoped_cons (object, placeholder); traverse_intervals_noorder (root_interval, &substitute_in_interval, arg); @@ -3681,8 +3681,8 @@ read_list (bool flag, Lisp_Object readcharfun) in the installed Lisp directory. We don't use Fexpand_file_name because that would make the directory absolute now. */ - elt = concat2 (build_string ("../lisp/"), - Ffile_name_nondirectory (elt)); + elt = concat2 (build_local_string ("../lisp/"), + Ffile_name_nondirectory (elt)); } else if (EQ (elt, Vload_file_name) && ! NILP (elt) |