# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1283172469 -7200
# Node ID 2c9ea5d3286241dd7dc98d2cbaa42c97a594b639
# Parent  fcae870dab3a215a389c40fb0b2337271f580fe3
* src/marker.c (Fcopy_marker): Make the first arg optional.

diff -r fcae870dab3a -r 2c9ea5d32862 src/ChangeLog
--- a/src/ChangeLog	Mon Aug 30 06:44:58 2010 +0000
+++ b/src/ChangeLog	Mon Aug 30 14:47:49 2010 +0200
@@ -1,3 +1,7 @@
+2010-08-30  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* marker.c (Fcopy_marker): Make the first arg optional.
+
 2010-08-30  Kenichi Handa  <handa@m17n.org>
 
 	* composite.c (composition_update_it): Fix computing of
diff -r fcae870dab3a -r 2c9ea5d32862 src/marker.c
--- a/src/marker.c	Mon Aug 30 06:44:58 2010 +0000
+++ b/src/marker.c	Mon Aug 30 14:47:49 2010 +0200
@@ -806,16 +806,18 @@
   return i;
 }
 
-DEFUN ("copy-marker", Fcopy_marker, Scopy_marker, 1, 2, 0,
+DEFUN ("copy-marker", Fcopy_marker, Scopy_marker, 0, 2, 0,
        doc: /* Return a new marker pointing at the same place as MARKER.
 If argument is a number, makes a new marker pointing
 at that position in the current buffer.
+If MARKER is not specified, the new marker does not point anywhere.
 The optional argument TYPE specifies the insertion type of the new marker;
 see `marker-insertion-type'.  */)
   (register Lisp_Object marker, Lisp_Object type)
 {
   register Lisp_Object new;
 
+  if (!NILP (marker))
   CHECK_TYPE (INTEGERP (marker) || MARKERP (marker), Qinteger_or_marker_p, marker);
 
   new = Fmake_marker ();