remove Lisp_Free struct type

[bpt/emacs.git] / src / marker.c

diff --git a/src/marker.c b/src/marker.c
index 0d992c0..91fcea5 100644 (file)
--- a/src/marker.c
+++ b/src/marker.c
@@ -1,5 +1,5 @@
 /* Markers: examining, setting and deleting.
-   Copyright (C) 1985, 1997-1998, 2001-2013 Free Software Foundation,
+   Copyright (C) 1985, 1997-1998, 2001-2014 Free Software Foundation,
    Inc.
 
 This file is part of GNU Emacs.
@@ -127,6 +127,12 @@ clear_charpos_cache (struct buffer *b)
     }                                                                  \
 }
 
+static void
+CHECK_MARKER (Lisp_Object x)
+{
+  CHECK_TYPE (MARKERP (x), Qmarkerp, x);
+}
+
 /* Return the byte position corresponding to CHARPOS in B.  */
 
 ptrdiff_t
@@ -500,7 +506,7 @@ set_marker_internal (Lisp_Object marker, Lisp_Object position,
       register ptrdiff_t charpos, bytepos;
 
       /* Do not use CHECK_NUMBER_COERCE_MARKER because we
-        don't want to call buf_charpos_to_bytepos if POSTION
+        don't want to call buf_charpos_to_bytepos if POSITION
         is a marker and so we know the bytepos already.  */
       if (INTEGERP (position))
        charpos = XINT (position), bytepos = -1;
@@ -528,9 +534,9 @@ set_marker_internal (Lisp_Object marker, Lisp_Object position,
 }
 
 DEFUN ("set-marker", Fset_marker, Sset_marker, 2, 3, 0,
-       doc: /* Position MARKER before character number POSITION in BUFFER,
-which defaults to the current buffer.  If POSITION is nil,
-makes marker point nowhere so it no longer slows down
+       doc: /* Position MARKER before character number POSITION in BUFFER.
+If BUFFER is omitted or nil, it defaults to the current buffer.  If
+POSITION is nil, makes marker point nowhere so it no longer slows down
 editing in any buffer.  Returns MARKER.  */)
   (Lisp_Object marker, Lisp_Object position, Lisp_Object buffer)
 {