aboutsummaryrefslogtreecommitdiffstats
path: root/src/alloc.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/alloc.c')
-rw-r--r--src/alloc.c8
1 files changed, 3 insertions, 5 deletions
diff --git a/src/alloc.c b/src/alloc.c
index 50968b7e121..00f2991f250 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -3702,19 +3702,17 @@ build_symbol_with_pos (Lisp_Object symbol, Lisp_Object position)
3702 return val; 3702 return val;
3703} 3703}
3704 3704
3705/* Return a new overlay with specified START, END and PLIST. */ 3705/* Return a new (deleted) overlay with PLIST. */
3706 3706
3707Lisp_Object 3707Lisp_Object
3708build_overlay (ptrdiff_t begin, ptrdiff_t end, 3708build_overlay (bool front_advance, bool rear_advance,
3709 bool front_advance, bool rear_advance,
3710 Lisp_Object plist) 3709 Lisp_Object plist)
3711{ 3710{
3712 struct Lisp_Overlay *p = ALLOCATE_PSEUDOVECTOR (struct Lisp_Overlay, plist, 3711 struct Lisp_Overlay *p = ALLOCATE_PSEUDOVECTOR (struct Lisp_Overlay, plist,
3713 PVEC_OVERLAY); 3712 PVEC_OVERLAY);
3714 Lisp_Object overlay = make_lisp_ptr (p, Lisp_Vectorlike); 3713 Lisp_Object overlay = make_lisp_ptr (p, Lisp_Vectorlike);
3715 struct interval_node *node = xmalloc (sizeof (*node)); 3714 struct interval_node *node = xmalloc (sizeof (*node));
3716 interval_node_init (node, begin, end, front_advance, 3715 interval_node_init (node, front_advance, rear_advance, overlay);
3717 rear_advance, overlay);
3718 p->interval = node; 3716 p->interval = node;
3719 p->buffer = NULL; 3717 p->buffer = NULL;
3720 set_overlay_plist (overlay, plist); 3718 set_overlay_plist (overlay, plist);