/[emacs]/emacs/src/fns.c
ViewVC logotype

Diff of /emacs/src/fns.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.303 by pj, Tue Nov 13 11:55:47 2001 UTC revision 1.304 by kfstorm, Thu Mar 21 12:19:02 2002 UTC
# Line 3045  SUBFEATURE can be used to check a specif Line 3045  SUBFEATURE can be used to check a specif
3045    CHECK_SYMBOL (feature);    CHECK_SYMBOL (feature);
3046    tem = Fmemq (feature, Vfeatures);    tem = Fmemq (feature, Vfeatures);
3047    if (!NILP (tem) && !NILP (subfeature))    if (!NILP (tem) && !NILP (subfeature))
3048      tem = Fmemq (subfeature, Fget (feature, Qsubfeatures));      tem = Fmember (subfeature, Fget (feature, Qsubfeatures));
3049    return (NILP (tem)) ? Qnil : Qt;    return (NILP (tem)) ? Qnil : Qt;
3050  }  }
3051    
# Line 3058  particular subfeatures supported in this Line 3058  particular subfeatures supported in this
3058  {  {
3059    register Lisp_Object tem;    register Lisp_Object tem;
3060    CHECK_SYMBOL (feature);    CHECK_SYMBOL (feature);
3061      CHECK_LIST (subfeatures);
3062    if (!NILP (Vautoload_queue))    if (!NILP (Vautoload_queue))
3063      Vautoload_queue = Fcons (Fcons (Vfeatures, Qnil), Vautoload_queue);      Vautoload_queue = Fcons (Fcons (Vfeatures, Qnil), Vautoload_queue);
3064    tem = Fmemq (feature, Vfeatures);    tem = Fmemq (feature, Vfeatures);

Legend:
Removed from v.1.303  
changed lines
  Added in v.1.304

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26