diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-09-27 02:24:00 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-09-27 02:24:00 +0000 |
| commit | d7e6730ae89bfc6a9c6e90db6af10641e7a3f1a9 (patch) | |
| tree | f62d7fdde0f735551f047cfa0526012e36a138ca /src/marker.c | |
| parent | 7d4785fb619b1ae0cf4299223401f77292419d90 (diff) | |
| download | emacs-d7e6730ae89bfc6a9c6e90db6af10641e7a3f1a9.tar.gz | |
(Fset_marker, set_marker_restricted, Fcopy_marker): Use type test macros.
Diffstat (limited to 'src/marker.c')
| -rw-r--r-- | src/marker.c | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/src/marker.c b/src/marker.c index fbf48da1c70..a5cc631fcdb 100644 --- a/src/marker.c +++ b/src/marker.c @@ -88,7 +88,7 @@ Returns MARKER.") /* 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 @@ set_marker_restricted (marker, pos, buffer) /* 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 @@ at that position in the current buffer.") 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 |