# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 780629084 0
# Node ID 766b6288e0f268eb8057938f548f1cdb1d890a6a
# Parent  85182997b9c95ffd894ef1111f5025a59c86761f
(Fmatch_data, Fstore_match_data): Use type test macros.

diff -r 85182997b9c9 -r 766b6288e0f2 src/search.c
--- a/src/search.c	Tue Sep 27 01:21:05 1994 +0000
+++ b/src/search.c	Tue Sep 27 01:24:44 1994 +0000
@@ -1504,7 +1504,7 @@
 	      XFASTINT (data[2 * i]) = start;
 	      XFASTINT (data[2 * i + 1]) = search_regs.end[i];
 	    }
-	  else if (XTYPE (last_thing_searched) == Lisp_Buffer)
+	  else if (BUFFERP (last_thing_searched))
 	    {
 	      data[2 * i] = Fmake_marker ();
 	      Fset_marker (data[2 * i],
@@ -1584,7 +1584,7 @@
 	}
       else
 	{
-	  if (XTYPE (marker) == Lisp_Marker)
+	  if (MARKERP (marker))
 	    {
 	      if (XMARKER (marker)->buffer == 0)
 		XFASTINT (marker) = 0;
@@ -1598,8 +1598,7 @@
 	  list = Fcdr (list);
 
 	  marker = Fcar (list);
-	  if (XTYPE (marker) == Lisp_Marker
-	      && XMARKER (marker)->buffer == 0)
+	  if (MARKERP (marker) && XMARKER (marker)->buffer == 0)
 	    XFASTINT (marker) = 0;
 
 	  CHECK_NUMBER_COERCE_MARKER (marker, 0);