(clone_per_buffer_values): Copy the alist of local vars,
and the alist pairs too.
This commit is contained in:
parent
69fe4180e4
commit
02f28bbdce
1 changed files with 9 additions and 1 deletions
10
src/buffer.c
10
src/buffer.c
|
@ -487,7 +487,7 @@ static void
|
|||
clone_per_buffer_values (from, to)
|
||||
struct buffer *from, *to;
|
||||
{
|
||||
Lisp_Object to_buffer;
|
||||
Lisp_Object to_buffer, tem;
|
||||
int offset;
|
||||
|
||||
XSETBUFFER (to_buffer, to);
|
||||
|
@ -514,6 +514,14 @@ clone_per_buffer_values (from, to)
|
|||
|
||||
to->overlays_before = copy_overlays (to, from->overlays_before);
|
||||
to->overlays_after = copy_overlays (to, from->overlays_after);
|
||||
|
||||
/* Copy the alist of local variables,
|
||||
and all the alist elements too. */
|
||||
to->local_var_alist
|
||||
= Fcopy_sequence (from->local_var_alist);
|
||||
for (tem = to->local_var_alist; CONSP (tem);
|
||||
tem = XCDR (tem))
|
||||
XSETCAR (tem, Fcons (XCAR (XCAR (tem)), XCDR (XCAR (tem))));
|
||||
}
|
||||
|
||||
|
||||
|
|
Loading…
Add table
Reference in a new issue