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

(Fmac_get_preference): Use CHECK_LIST_END.
---

diff --git a/src/mac.c b/src/mac.c
index e25ed435342..4652757fab3 100644
--- a/src/mac.c
+++ b/src/mac.c
@@ -4625,8 +4625,7 @@ otherwise.  */)
       CHECK_CONS (key);
       for (tmp = key; CONSP (tmp); tmp = XCDR (tmp))
 	CHECK_STRING_CAR (tmp);
-      if (!NILP (tmp))
-	wrong_type_argument (Qlistp, key);
+      CHECK_LIST_END (tmp, key);
     }
   if (!NILP (application))
     CHECK_STRING (application);