Mercurial > emacs

comparison src/marker.c @ 71840:96e9b3cb9809

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fcopy_marker): Use CHECK_TYPE.
author Kim F. Storm <storm@cua.dk>
date Wed, 12 Jul 2006 13:19:54 +0000
parents 3bd95f4f2941
children b7e16dcc0668 8a8e69664178
comparison
equal deleted inserted replaced
71839:c31d8ae32af3 71840:96e9b3cb9809
833 (marker, type) 833 (marker, type)
834 register Lisp_Object marker, type; 834 register Lisp_Object marker, type;
835 { 835 {
836 register Lisp_Object new; 836 register Lisp_Object new;
837 837
838 if (! (INTEGERP (marker) || MARKERP (marker))) 838 CHECK_TYPE (INTEGERP (marker) || MARKERP (marker), Qinteger_or_marker_p, marker);
839 marker = wrong_type_argument (Qinteger_or_marker_p, marker);
840 839
841 new = Fmake_marker (); 840 new = Fmake_marker ();
842 Fset_marker (new, marker, 841 Fset_marker (new, marker,
843 (MARKERP (marker) ? Fmarker_buffer (marker) : Qnil)); 842 (MARKERP (marker) ? Fmarker_buffer (marker) : Qnil));
844 XMARKER (new)->insertion_type = !NILP (type); 843 XMARKER (new)->insertion_type = !NILP (type);