/* Markers: examining, setting and deleting.
- Copyright (C) 1985, 1997, 1998, 2003 Free Software Foundation, Inc.
+ Copyright (C) 1985, 1997, 1998, 2002, 2003, 2004,
+ 2005, 2006 Free Software Foundation, Inc.
This file is part of GNU Emacs.
You should have received a copy of the GNU General Public License
along with GNU Emacs; see the file COPYING. If not, write to
-the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-Boston, MA 02111-1307, USA. */
+the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+Boston, MA 02110-1301, USA. */
#include <config.h>
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,
DEFUN ("marker-insertion-type", Fmarker_insertion_type,
Smarker_insertion_type, 1, 1, 0,
doc: /* Return insertion type of MARKER: t if it stays after inserted text.
-nil means the marker stays before text inserted there. */)
+The value nil means the marker stays before text inserted there. */)
(marker)
register Lisp_Object marker;
{
doc: /* Non-nil enables debugging checks in byte/char position conversions. */);
byte_debug_flag = 0;
}
+
+/* arch-tag: 50aa418f-cdd0-4838-b64b-94aa4b2a3b74
+ (do not change this comment) */