From 55cfc73193a21253979cbfa94198b69e5030e14c Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Tue, 4 Oct 1994 12:10:17 +0000 Subject: (graft_intervals_into_buffer): Use new accessor macros instead of calling XSET directly. --- src/intervals.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/intervals.c') diff --git a/src/intervals.c b/src/intervals.c index 5ec26e2d301..195285517da 100644 --- a/src/intervals.c +++ b/src/intervals.c @@ -1434,7 +1434,7 @@ graft_intervals_into_buffer (source, position, length, buffer, inherit) Lisp_Object buf; if (!inherit && ! NULL_INTERVAL_P (tree)) { - XSET (buf, Lisp_Buffer, buffer); + XSETBUFFER (buf, buffer); Fset_text_properties (make_number (position), make_number (position + length), Qnil, buf); @@ -1451,7 +1451,7 @@ graft_intervals_into_buffer (source, position, length, buffer, inherit) if ((BUF_Z (buffer) - BUF_BEG (buffer)) == TOTAL_LENGTH (source)) { Lisp_Object buf; - XSET (buf, Lisp_Buffer, buffer); + XSETBUFFER (buf, buffer); buffer->intervals = reproduce_tree (source, buf); /* Explicitly free the old tree here. */ @@ -1462,7 +1462,7 @@ graft_intervals_into_buffer (source, position, length, buffer, inherit) of the intervals of the inserted string. */ { Lisp_Object buf; - XSET (buf, Lisp_Buffer, buffer); + XSETBUFFER (buf, buffer); tree = create_root_interval (buf); } } -- cgit v1.2.1