diff options
Diffstat (limited to 'src/alloc.c')
| -rw-r--r-- | src/alloc.c | 8 |
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 | ||
| 3707 | Lisp_Object | 3707 | Lisp_Object |
| 3708 | build_overlay (ptrdiff_t begin, ptrdiff_t end, | 3708 | build_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); |