Mercurial > emacs

comparison src/fns.c @ 24016:43344f47a865

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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);