Mercurial > emacs
diff src/data.c @ 16754:6ca8ed287a53
(Ffset): Change argument name and doc string.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 26 Dec 1996 22:40:23 +0000 |
| parents | e46fcec4629d |
| children | 71113ba79b1b |
line wrap: on
line diff
--- a/src/data.c Thu Dec 26 21:07:30 1996 +0000 +++ b/src/data.c Thu Dec 26 22:40:23 1996 +0000 @@ -625,9 +625,9 @@ } DEFUN ("fset", Ffset, Sfset, 2, 2, 0, - "Set SYMBOL's function definition to NEWVAL, and return NEWVAL.") - (symbol, newdef) - register Lisp_Object symbol, newdef; + "Set SYMBOL's function definition to DEFINITION, and return DEFINITION.") + (symbol, definition) + register Lisp_Object symbol, definition; { CHECK_SYMBOL (symbol, 0); if (NILP (symbol) || EQ (symbol, Qt)) @@ -635,14 +635,14 @@ if (!NILP (Vautoload_queue) && !EQ (XSYMBOL (symbol)->function, Qunbound)) Vautoload_queue = Fcons (Fcons (symbol, XSYMBOL (symbol)->function), Vautoload_queue); - XSYMBOL (symbol)->function = newdef; + XSYMBOL (symbol)->function = definition; /* Handle automatic advice activation */ if (CONSP (XSYMBOL (symbol)->plist) && !NILP (Fget (symbol, Qad_advice_info))) { call2 (Qad_activate, symbol, Qnil); - newdef = XSYMBOL (symbol)->function; + definition = XSYMBOL (symbol)->function; } - return newdef; + return definition; } DEFUN ("defalias", Fdefalias, Sdefalias, 2, 2, 0,
