Commit cd196f12 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

* src/marker.c (Fcopy_marker): Make the first arg optional.

parent 598451ed
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
......
......@@ -806,16 +806,18 @@ marker_byte_position (Lisp_Object marker)
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 ();
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment