/* Markers: examining, setting and deleting.
Copyright (C) 1985, 1997, 1998, 2002, 2003, 2004,
- 2005 Free Software Foundation, Inc.
+ 2005, 2006 Free Software Foundation, Inc.
This file is part of GNU Emacs.
int
verify_bytepos (charpos)
+ int charpos;
{
int below = 1;
int below_byte = 1;
}
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,