diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-12-26 22:40:23 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-12-26 22:40:23 +0000 |
| commit | ef5f7fcbdb81f5c80e5f2f55bb8e2e4a6a3b2284 (patch) | |
| tree | 7d7de65dacbe6401aa144e738826fae1e1057519 | |
| parent | 19f97ea416d6cd85de118649d05aefc6c6ca471b (diff) | |
| download | emacs-ef5f7fcbdb81f5c80e5f2f55bb8e2e4a6a3b2284.tar.gz | |
(Ffset): Change argument name and doc string.
| -rw-r--r-- | src/data.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/data.c b/src/data.c index 16519d17fd7..4357fa79c0a 100644 --- a/src/data.c +++ b/src/data.c @@ -625,9 +625,9 @@ DEFUN ("symbol-name", Fsymbol_name, Ssymbol_name, 1, 1, 0, "Return SYMBOL's name } 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 @@ DEFUN ("fset", Ffset, Sfset, 2, 2, 0, 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, |