From: Kim F. Storm <storm@cua.dk>
Date: Wed, 12 Jul 2006 13:20:32 +0000 (+0000)
Subject: (Fset_match_data): Use CHECK_LIST.
X-Git-Tag: emacs-pretest-22.0.90~1497
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=29100ceab859e7c13a6549cf0afe57355474b933;p=emacs.git

(Fset_match_data): Use CHECK_LIST.
---

diff --git a/src/search.c b/src/search.c
index 99db7f184fc..fe124091009 100644
--- a/src/search.c
+++ b/src/search.c
@@ -2874,8 +2874,7 @@ If optional arg RESEAT is non-nil, make markers on LIST point nowhere.  */)
   if (running_asynch_code)
     save_search_regs ();
 
-  if (!CONSP (list) && !NILP (list))
-    list = wrong_type_argument (Qconsp, list);
+  CHECK_LIST (list);
 
   /* Unless we find a marker with a buffer or an explicit buffer
      in LIST, assume that this match data came from a string.  */