comparison src/buffer.c @ 55744:dc4797dbcccd

(clone_per_buffer_values): Copy the alist of local vars, and the alist pairs too.

55743:4f33fa491183

static void
clone_per_buffer_values (from, to)
     struct buffer *from, *to;
{
  Lisp_Object to_buffer;
  int offset;

  XSETBUFFER (to_buffer, to);

  for (offset = PER_BUFFER_VAR_OFFSET (name) + sizeof (Lisp_Object);

  bcopy (from->local_flags, to->local_flags, sizeof to->local_flags);

  to->overlays_before = copy_overlays (to, from->overlays_before);
  to->overlays_after = copy_overlays (to, from->overlays_after);
}


DEFUN ("make-indirect-buffer", Fmake_indirect_buffer, Smake_indirect_buffer,
       2, 3,

55744:dc4797dbcccd

static void
clone_per_buffer_values (from, to)
     struct buffer *from, *to;
{
  Lisp_Object to_buffer, tem;
  int offset;

  XSETBUFFER (to_buffer, to);

  for (offset = PER_BUFFER_VAR_OFFSET (name) + sizeof (Lisp_Object);

  bcopy (from->local_flags, to->local_flags, sizeof to->local_flags);

  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))));
}


DEFUN ("make-indirect-buffer", Fmake_indirect_buffer, Smake_indirect_buffer,
       2, 3,