Mercurial > emacs

changeset 18751:c8135c48a66d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(set_buffer_internal_1): Convert Fset_marker argument to Lisp_Integer. (set_buffer_temp): Likewise. (fix_overlays_in_range): Likewise.
author Richard M. Stallman <rms@gnu.org>
date Sat, 12 Jul 1997 06:46:48 +0000
parents 06cace23a912
children 8fce2f503ea9
files src/buffer.c
diffstat 1 files changed, 20 insertions(+), 10 deletions(-) [+]
line wrap: on
line diff
--- a/src/buffer.c	Sat Jul 12 06:46:35 1997 +0000
+++ b/src/buffer.c	Sat Jul 12 06:46:48 1997 +0000
@@ -1403,19 +1403,22 @@
 	{
 	  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 @@
 	{
 	  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 @@
 	  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 @@
 	  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))