Commit 37ebddef authored by Kim F. Storm's avatar Kim F. Storm
Browse files

(Ffeaturep): Allow subfeature to be a list (test using

Fmember rather than Fmemq).
(Fprovide): Check that subfeatures is a list.
parent a0f8590d
......@@ -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);
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment