From: Kim F. Storm <storm@cua.dk>
Date: Thu, 21 Mar 2002 12:19:02 +0000 (+0000)
Subject: (Ffeaturep): Allow subfeature to be a list (test using
X-Git-Tag: ttn-vms-21-2-B4~16045
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=37ebddef957500e7990c72786505a92e3bf17816;p=emacs.git

(Ffeaturep): Allow subfeature to be a list (test using
Fmember rather than Fmemq).
(Fprovide): Check that subfeatures is a list.
---

diff --git a/src/fns.c b/src/fns.c
index 279dba0fd88..8c895773115 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -3045,7 +3045,7 @@ SUBFEATURE can be used to check a specific subfeature of FEATURE.  */)
   CHECK_SYMBOL (feature);
   tem = Fmemq (feature, Vfeatures);
   if (!NILP (tem) && !NILP (subfeature))
-    tem = Fmemq (subfeature, Fget (feature, Qsubfeatures));
+    tem = Fmember (subfeature, Fget (feature, Qsubfeatures));
   return (NILP (tem)) ? Qnil : Qt;
 }
 
@@ -3058,6 +3058,7 @@ particular subfeatures supported in this version of FEATURE.  */)
 {
   register Lisp_Object tem;
   CHECK_SYMBOL (feature);
+  CHECK_LIST (subfeatures);
   if (!NILP (Vautoload_queue))
     Vautoload_queue = Fcons (Fcons (Vfeatures, Qnil), Vautoload_queue);
   tem = Fmemq (feature, Vfeatures);