From 2c99f3ead480b845bf8f5723861e3bc2f514ddfe Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 12 Jul 1997 06:46:48 +0000 Subject: [PATCH] (set_buffer_internal_1): Convert Fset_marker argument to Lisp_Integer. (set_buffer_temp): Likewise. (fix_overlays_in_range): Likewise. --- src/buffer.c | 30 ++++++++++++++++++++---------- 1 file changed, 20 insertions(+), 10 deletions(-) diff --git a/src/buffer.c b/src/buffer.c index 42f6ca1582c..a2bff81ebd8 100644 --- a/src/buffer.c +++ b/src/buffer.c @@ -1403,19 +1403,22 @@ set_buffer_internal_1 (b) { Lisp_Object obuf; XSETBUFFER (obuf, old_buf); - Fset_marker (old_buf->pt_marker, BUF_PT (old_buf), obuf); + Fset_marker (old_buf->pt_marker, make_number (BUF_PT (old_buf)), + obuf); } if (! NILP (old_buf->begv_marker)) { Lisp_Object obuf; XSETBUFFER (obuf, old_buf); - Fset_marker (old_buf->begv_marker, BUF_BEGV (old_buf), obuf); + Fset_marker (old_buf->begv_marker, make_number (BUF_BEGV (old_buf)), + obuf); } if (! NILP (old_buf->zv_marker)) { Lisp_Object obuf; XSETBUFFER (obuf, old_buf); - Fset_marker (old_buf->zv_marker, BUF_ZV (old_buf), obuf); + Fset_marker (old_buf->zv_marker, make_number (BUF_ZV (old_buf)), + obuf); } } @@ -1487,19 +1490,22 @@ set_buffer_temp (b) { Lisp_Object obuf; XSETBUFFER (obuf, old_buf); - Fset_marker (old_buf->pt_marker, BUF_PT (old_buf), obuf); + Fset_marker (old_buf->pt_marker, make_number (BUF_PT (old_buf)), + obuf); } if (! NILP (old_buf->begv_marker)) { Lisp_Object obuf; XSETBUFFER (obuf, old_buf); - Fset_marker (old_buf->begv_marker, BUF_BEGV (old_buf), obuf); + Fset_marker (old_buf->begv_marker, make_number (BUF_BEGV (old_buf)), + obuf); } if (! NILP (old_buf->zv_marker)) { Lisp_Object obuf; XSETBUFFER (obuf, old_buf); - Fset_marker (old_buf->zv_marker, BUF_ZV (old_buf), obuf); + Fset_marker (old_buf->zv_marker, make_number (BUF_ZV (old_buf)), + obuf); } } @@ -2525,8 +2531,10 @@ fix_overlays_in_range (start, end) if (startpos > endpos) { int tem; - Fset_marker (OVERLAY_START (overlay), endpos, Qnil); - Fset_marker (OVERLAY_END (overlay), startpos, Qnil); + Fset_marker (OVERLAY_START (overlay), make_number (endpos), + Qnil); + Fset_marker (OVERLAY_END (overlay), make_number (startpos), + Qnil); tem = startpos; startpos = endpos; endpos = tem; } /* Add it to the end of the wrong list. Later on, @@ -2559,8 +2567,10 @@ fix_overlays_in_range (start, end) if (startpos > endpos) { int tem; - Fset_marker (OVERLAY_START (overlay), endpos, Qnil); - Fset_marker (OVERLAY_END (overlay), startpos, Qnil); + Fset_marker (OVERLAY_START (overlay), make_number (endpos), + Qnil); + Fset_marker (OVERLAY_END (overlay), make_number (startpos), + Qnil); tem = startpos; startpos = endpos; endpos = tem; } if (endpos < XINT (current_buffer->overlay_center)) -- 2.11.4.GIT