Mercurial > emacs

diff src/fns.c @ 44066:d0bef01f3cb3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Ffeaturep): Allow subfeature to be a list (test using Fmember rather than Fmemq). (Fprovide): Check that subfeatures is a list.
author Kim F. Storm <storm@cua.dk>
date Thu, 21 Mar 2002 12:19:02 +0000
parents fd83ec62a495
children 61c15819e528
line wrap: on
line diff
--- a/src/fns.c	Thu Mar 21 12:17:51 2002 +0000
+++ b/src/fns.c	Thu Mar 21 12:19:02 2002 +0000
@@ -3045,7 +3045,7 @@
   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 @@
 {
   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);