Mercurial > emacs

changeset 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 fca68830d4e0
children e8a136850817
files src/fns.c
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
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);