diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-09-27 01:24:44 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-09-27 01:24:44 +0000 |
| commit | 10888b3f774ce6724a7a7a94483411804311678e (patch) | |
| tree | efb8bf6b59ae003bd0c6a8c08ddadd62f51309bf /src/search.c | |
| parent | d04ed902441b0e7f2145afc6d288913c5c7764af (diff) | |
| download | emacs-10888b3f774ce6724a7a7a94483411804311678e.tar.gz | |
(Fmatch_data, Fstore_match_data): Use type test macros.
Diffstat (limited to 'src/search.c')
| -rw-r--r-- | src/search.c | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/src/search.c b/src/search.c index c77f7b7c202..0ac7018d22b 100644 --- a/src/search.c +++ b/src/search.c @@ -1504,7 +1504,7 @@ Use `store-match-data' to reinstate the data in this list.") 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 @@ LIST should have been created by calling `match-data' previously.") } else { - if (XTYPE (marker) == Lisp_Marker) + if (MARKERP (marker)) { if (XMARKER (marker)->buffer == 0) XFASTINT (marker) = 0; @@ -1598,8 +1598,7 @@ LIST should have been created by calling `match-data' previously.") 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); |