From 254f294c2e37a22e04bff74fedfdc9b1fcc93b93 Mon Sep 17 00:00:00 2001 From: Jim Blandy Date: Mon, 13 Jan 1992 21:48:03 +0000 Subject: entered into RCS --- src/marker.c | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'src/marker.c') diff --git a/src/marker.c b/src/marker.c index d8c0a89819a..6c26e72fae4 100644 --- a/src/marker.c +++ b/src/marker.c @@ -36,7 +36,7 @@ Returns nil if MARKER points into a dead buffer.") { XSET (buf, Lisp_Buffer, XMARKER (marker)->buffer); /* Return marker's buffer only if it is not dead. */ - if (!NULL (XBUFFER (buf)->name)) + if (!NILP (XBUFFER (buf)->name)) return buf; } return Qnil; @@ -87,7 +87,7 @@ Returns MARKER.") CHECK_MARKER (marker, 0); /* If position is nil or a marker that points nowhere, make this marker point nowhere. */ - if (NULL (pos) + if (NILP (pos) || (XTYPE (pos) == Lisp_Marker && !XMARKER (pos)->buffer)) { unchain_marker (marker); @@ -95,7 +95,7 @@ Returns MARKER.") } CHECK_NUMBER_COERCE_MARKER (pos, 1); - if (NULL (buffer)) + if (NILP (buffer)) b = current_buffer; else { @@ -144,7 +144,7 @@ set_marker_restricted (marker, pos, buffer) CHECK_MARKER (marker, 0); /* If position is nil or a marker that points nowhere, make this marker point nowhere. */ - if (NULL (pos) || + if (NILP (pos) || (XTYPE (pos) == Lisp_Marker && !XMARKER (pos)->buffer)) { unchain_marker (marker); @@ -152,7 +152,7 @@ set_marker_restricted (marker, pos, buffer) } CHECK_NUMBER_COERCE_MARKER (pos, 1); - if (NULL (buffer)) + if (NILP (buffer)) b = current_buffer; else { @@ -215,7 +215,7 @@ unchain_marker (marker) if (XMARKER (marker) == XMARKER (tail)) { - if (NULL (prev)) + if (NILP (prev)) { b->markers = next; /* Deleting first marker from the buffer's chain. -- cgit v1.2.1