From 37ebddef957500e7990c72786505a92e3bf17816 Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Thu, 21 Mar 2002 12:19:02 +0000 Subject: [PATCH] (Ffeaturep): Allow subfeature to be a list (test using Fmember rather than Fmemq). (Fprovide): Check that subfeatures is a list. --- src/fns.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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); -- 2.39.2