# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 780632640 0
# Node ID faecbbbcceb4eb3d0181746c8ee0f831216c6d73
# Parent  ed766dfb4efe77312e2b1d839720d04f89b48ac7
(Fset_marker, set_marker_restricted, Fcopy_marker): Use type test macros.

diff -r ed766dfb4efe -r faecbbbcceb4 src/marker.c
--- a/src/marker.c	Tue Sep 27 02:12:02 1994 +0000
+++ b/src/marker.c	Tue Sep 27 02:24:00 1994 +0000
@@ -88,7 +88,7 @@
   /* If position is nil or a marker that points nowhere,
      make this marker point nowhere.  */
   if (NILP (pos)
-      || (XTYPE (pos) == Lisp_Marker && !XMARKER (pos)->buffer))
+      || (MARKERP (pos) && !XMARKER (pos)->buffer))
     {
       unchain_marker (marker);
       return marker;
@@ -145,7 +145,7 @@
   /* If position is nil or a marker that points nowhere,
      make this marker point nowhere.  */
   if (NILP (pos) ||
-      (XTYPE (pos) == Lisp_Marker && !XMARKER (pos)->buffer))
+      (MARKERP (pos) && !XMARKER (pos)->buffer))
     {
       unchain_marker (marker);
       return marker;
@@ -271,14 +271,11 @@
 
   while (1)
     {
-      if (XTYPE (marker) == Lisp_Int
-	  || XTYPE (marker) == Lisp_Marker)
+      if (INTEGERP (marker) || MARKERP (marker))
 	{
 	  new = Fmake_marker ();
 	  Fset_marker (new, marker,
-		       ((XTYPE (marker) == Lisp_Marker)
-			? Fmarker_buffer (marker)
-			: Qnil));
+		       (MARKERP (marker) ? Fmarker_buffer (marker) : Qnil));
 	  return new;
 	}
       else