mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-07 12:20:39 -08:00
Code Issues Projects Releases Wiki Activity

(set_buffer_internal_1): Convert Fset_marker argument to Lisp_Integer.

Browse source 
(set_buffer_temp): Likewise.
(fix_overlays_in_range): Likewise.
This commit is contained in:
Richard M. Stallman 1997-07-12 06:46:48 +00:00
parent ea625b14ae
commit 2c99f3ead4
1 changed files with 20 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

30
src/buffer.c
View file

@ -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))