[Emacs-diffs] Changes to emacs/src/fns.c

[Kim F. Storm]

Index: emacs/src/fns.c
diff -c emacs/src/fns.c:1.303 emacs/src/fns.c:1.304
*** emacs/src/fns.c:1.303       Tue Nov 13 06:55:47 2001
--- emacs/src/fns.c     Thu Mar 21 07:19:02 2002
***************
*** 3045,3051 ****
    CHECK_SYMBOL (feature);
    tem = Fmemq (feature, Vfeatures);
    if (!NILP (tem) && !NILP (subfeature))
!     tem = Fmemq (subfeature, Fget (feature, Qsubfeatures));
    return (NILP (tem)) ? Qnil : Qt;
  }
  
--- 3045,3051 ----
    CHECK_SYMBOL (feature);
    tem = Fmemq (feature, Vfeatures);
    if (!NILP (tem) && !NILP (subfeature))
!     tem = Fmember (subfeature, Fget (feature, Qsubfeatures));
    return (NILP (tem)) ? Qnil : Qt;
  }
  
***************
*** 3058,3063 ****
--- 3058,3064 ----
  {
    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);