summaryrefslogtreecommitdiff
path: root/src/marker.c
diff options
context:
space:
mode:
authorPavel Janík <Pavel@Janik.cz>2001-11-02 20:46:55 +0000
committerPavel Janík <Pavel@Janik.cz>2001-11-02 20:46:55 +0000
commitb78265036088d5d0eac2a03b929adb50aa59b45c (patch)
treede99fe733144deb926fd31ee7bdff95cb1bc5073 /src/marker.c
parent00a2cef7d11a1b193891eb3d28274ef7fc7c3fe4 (diff)
downloademacs-b78265036088d5d0eac2a03b929adb50aa59b45c.tar.gz
Update usage of CHECK_ macros (remove unused second argument).
Diffstat (limited to 'src/marker.c')
-rw-r--r--src/marker.c28
1 files changed, 14 insertions, 14 deletions
diff --git a/src/marker.c b/src/marker.c
index 2ba164d2dc4..b634d644790 100644
--- a/src/marker.c
+++ b/src/marker.c
@@ -434,7 +434,7 @@ Returns nil if MARKER points into a dead buffer. */)
register Lisp_Object marker;
{
register Lisp_Object buf;
- CHECK_MARKER (marker, 0);
+ CHECK_MARKER (marker);
if (XMARKER (marker)->buffer)
{
XSETBUFFER (buf, XMARKER (marker)->buffer);
@@ -450,7 +450,7 @@ DEFUN ("marker-position", Fmarker_position, Smarker_position, 1, 1, 0,
(marker)
Lisp_Object marker;
{
- CHECK_MARKER (marker, 0);
+ CHECK_MARKER (marker);
if (XMARKER (marker)->buffer)
return make_number (XMARKER (marker)->charpos);
@@ -470,7 +470,7 @@ Returns MARKER. */)
register struct buffer *b;
register struct Lisp_Marker *m;
- CHECK_MARKER (marker, 0);
+ CHECK_MARKER (marker);
/* If position is nil or a marker that points nowhere,
make this marker point nowhere. */
if (NILP (position)
@@ -484,7 +484,7 @@ Returns MARKER. */)
b = current_buffer;
else
{
- CHECK_BUFFER (buffer, 1);
+ CHECK_BUFFER (buffer);
b = XBUFFER (buffer);
/* If buffer is dead, set marker to point nowhere. */
if (EQ (b->name, Qnil))
@@ -506,7 +506,7 @@ Returns MARKER. */)
return marker;
}
- CHECK_NUMBER_COERCE_MARKER (position, 1);
+ CHECK_NUMBER_COERCE_MARKER (position);
charno = XINT (position);
@@ -546,7 +546,7 @@ set_marker_restricted (marker, pos, buffer)
register struct buffer *b;
register struct Lisp_Marker *m;
- CHECK_MARKER (marker, 0);
+ CHECK_MARKER (marker);
/* If position is nil or a marker that points nowhere,
make this marker point nowhere. */
if (NILP (pos)
@@ -560,7 +560,7 @@ set_marker_restricted (marker, pos, buffer)
b = current_buffer;
else
{
- CHECK_BUFFER (buffer, 1);
+ CHECK_BUFFER (buffer);
b = XBUFFER (buffer);
/* If buffer is dead, set marker to point nowhere. */
if (EQ (b->name, Qnil))
@@ -582,7 +582,7 @@ set_marker_restricted (marker, pos, buffer)
return marker;
}
- CHECK_NUMBER_COERCE_MARKER (pos, 1);
+ CHECK_NUMBER_COERCE_MARKER (pos);
charno = XINT (pos);
@@ -622,13 +622,13 @@ set_marker_both (marker, buffer, charpos, bytepos)
register struct buffer *b;
register struct Lisp_Marker *m;
- CHECK_MARKER (marker, 0);
+ CHECK_MARKER (marker);
if (NILP (buffer))
b = current_buffer;
else
{
- CHECK_BUFFER (buffer, 1);
+ CHECK_BUFFER (buffer);
b = XBUFFER (buffer);
/* If buffer is dead, set marker to point nowhere. */
if (EQ (b->name, Qnil))
@@ -673,13 +673,13 @@ set_marker_restricted_both (marker, buffer, charpos, bytepos)
register struct buffer *b;
register struct Lisp_Marker *m;
- CHECK_MARKER (marker, 0);
+ CHECK_MARKER (marker);
if (NILP (buffer))
b = current_buffer;
else
{
- CHECK_BUFFER (buffer, 1);
+ CHECK_BUFFER (buffer);
b = XBUFFER (buffer);
/* If buffer is dead, set marker to point nowhere. */
if (EQ (b->name, Qnil))
@@ -843,7 +843,7 @@ nil means the marker stays before text inserted there. */)
(marker)
register Lisp_Object marker;
{
- CHECK_MARKER (marker, 0);
+ CHECK_MARKER (marker);
return XMARKER (marker)->insertion_type ? Qt : Qnil;
}
@@ -855,7 +855,7 @@ If TYPE is nil, it means the marker stays behind when you insert text at it. */
(marker, type)
Lisp_Object marker, type;
{
- CHECK_MARKER (marker, 0);
+ CHECK_MARKER (marker);
XMARKER (marker)->insertion_type = ! NILP (type);
return type;