Mercurial > emacs

comparison src/data.c @ 3529:36fe8e57f020

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Ffset): Delete special check for t and nil.
author Richard M. Stallman <rms@gnu.org>
date Sun, 06 Jun 1993 22:50:55 +0000
parents cb9eb3e46e2c
children 507f64624555
comparison
equal deleted inserted replaced
3528:aad9fd004281 3529:36fe8e57f020
519 "Set SYMBOL's function definition to NEWVAL, and return NEWVAL.") 519 "Set SYMBOL's function definition to NEWVAL, and return NEWVAL.")
520 (sym, newdef) 520 (sym, newdef)
521 register Lisp_Object sym, newdef; 521 register Lisp_Object sym, newdef;
522 { 522 {
523 CHECK_SYMBOL (sym, 0); 523 CHECK_SYMBOL (sym, 0);
524 if (NILP (sym) || EQ (sym, Qt))
525 return Fsignal (Qsetting_constant, Fcons (sym, Qnil));
526 524
527 if (!NILP (Vautoload_queue) && !EQ (XSYMBOL (sym)->function, Qunbound)) 525 if (!NILP (Vautoload_queue) && !EQ (XSYMBOL (sym)->function, Qunbound))
528 Vautoload_queue = Fcons (Fcons (sym, XSYMBOL (sym)->function), 526 Vautoload_queue = Fcons (Fcons (sym, XSYMBOL (sym)->function),
529 Vautoload_queue); 527 Vautoload_queue);
530 XSYMBOL (sym)->function = newdef; 528 XSYMBOL (sym)->function = newdef;