From: Kim F. Storm <storm@cua.dk>
Date: Wed, 12 Jul 2006 13:19:54 +0000 (+0000)
Subject: (Fcopy_marker): Use CHECK_TYPE.
X-Git-Tag: emacs-pretest-22.0.90~1498
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0b4331b7bffe15e032481fdb905616a9615ecb6d;p=emacs.git

(Fcopy_marker): Use CHECK_TYPE.
---

diff --git a/src/marker.c b/src/marker.c
index 79a7d702bdf..20b660ddadd 100644
--- a/src/marker.c
+++ b/src/marker.c
@@ -835,8 +835,7 @@ see `marker-insertion-type'.  */)
 {
   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,