Mercurial > emacs
comparison src/fns.c @ 24016:43344f47a865
(Frequire): Don't fail to unbind bindings.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Wed, 06 Jan 1999 23:55:31 +0000 |
parents | 74a3a9c26a03 |
children | c373e786127a |
comparison
equal
deleted
inserted
replaced
24015:2b8d4cd758b7 | 24016:43344f47a865 |
---|---|
2652 | 2652 |
2653 tem = Fload (NILP (file_name) ? Fsymbol_name (feature) : file_name, | 2653 tem = Fload (NILP (file_name) ? Fsymbol_name (feature) : file_name, |
2654 noerror, Qt, Qnil, (NILP (file_name) ? Qt : Qnil)); | 2654 noerror, Qt, Qnil, (NILP (file_name) ? Qt : Qnil)); |
2655 /* If load failed entirely, return nil. */ | 2655 /* If load failed entirely, return nil. */ |
2656 if (NILP (tem)) | 2656 if (NILP (tem)) |
2657 return Qnil; | 2657 return unbind_to (count, Qnil); |
2658 | 2658 |
2659 tem = Fmemq (feature, Vfeatures); | 2659 tem = Fmemq (feature, Vfeatures); |
2660 if (NILP (tem)) | 2660 if (NILP (tem)) |
2661 error ("Required feature %s was not provided", | 2661 error ("Required feature %s was not provided", |
2662 XSYMBOL (feature)->name->data); | 2662 XSYMBOL (feature)->name->data); |