}
DEFUN ("marker-position", Fmarker_position, Smarker_position, 1, 1, 0,
- doc: /* Return the position MARKER points at, as a character number. */)
+ doc: /* Return the position MARKER points at, as a character number.
+Returns nil if MARKER points nowhere. */)
(marker)
Lisp_Object marker;
{
{
register Lisp_Object new;
- if (! (INTEGERP (marker) || MARKERP (marker)))
- marker = wrong_type_argument (Qinteger_or_marker_p, marker);
+ CHECK_TYPE (INTEGERP (marker) || MARKERP (marker), Qinteger_or_marker_p, marker);
new = Fmake_marker ();
Fset_marker (new, marker,