Lines Matching defs:feature
3484 Use `provide' to declare that a feature is available. This function
3487 (feature, subfeature)
3488 Lisp_Object feature, subfeature;
3491 CHECK_SYMBOL (feature);
3492 tem = Fmemq (feature, Vfeatures);
3494 tem = Fmember (subfeature, Fget (feature, Qsubfeatures));
3499 doc: /* Announce that FEATURE is a feature of the current Emacs.
3502 (feature, subfeatures)
3503 Lisp_Object feature, subfeatures;
3506 CHECK_SYMBOL (feature);
3511 tem = Fmemq (feature, Vfeatures);
3513 Vfeatures = Fcons (feature, Vfeatures);
3515 Fput (feature, Qsubfeatures, subfeatures);
3516 LOADHIST_ATTACH (Fcons (Qprovide, feature));
3519 tem = Fassq (feature, Vafter_load_alist);
3523 return feature;
3541 doc: /* If feature FEATURE is not loaded, load it from FILENAME.
3542 If FEATURE is not a member of the list `features', then the feature
3551 (feature, filename, noerror)
3552 Lisp_Object feature, filename, noerror;
3558 CHECK_SYMBOL (feature);
3561 even if the feature specified is already loaded.
3571 tem = Fcons (Qrequire, feature);
3575 tem = Fmemq (feature, Vfeatures);
3586 SDATA (SYMBOL_NAME (feature)));
3589 but if we require the same feature recursively 3 times,
3594 if (! NILP (Fequal (feature, XCAR (tem))))
3599 error ("Recursive `require' for feature `%s'",
3600 SDATA (SYMBOL_NAME (feature)));
3604 require_nesting_list = Fcons (feature, require_nesting_list);
3611 GCPRO2 (feature, filename);
3612 tem = Fload (NILP (filename) ? Fsymbol_name (feature) : filename,
3620 tem = Fmemq (feature, Vfeatures);
3622 error ("Required feature `%s' was not provided",
3623 SDATA (SYMBOL_NAME (feature)));
3627 feature = unbind_to (count, feature);
3630 return feature;