diff options
| author | Jim Blandy <jimb@redhat.com> | 1992-01-13 21:48:03 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1992-01-13 21:48:03 +0000 |
| commit | 254f294c2e37a22e04bff74fedfdc9b1fcc93b93 (patch) | |
| tree | 060dbe9a444bcf1c2e1bc7802fc4dfc1717520aa /src/marker.c | |
| parent | a48a36d045feed054f3532c5596449466a60a3cd (diff) | |
| download | emacs-254f294c2e37a22e04bff74fedfdc9b1fcc93b93.tar.gz | |
entered into RCS
Diffstat (limited to 'src/marker.c')
| -rw-r--r-- | src/marker.c | 12 |
1 files changed, 6 insertions, 6 deletions
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. |