From ef5f7fcbdb81f5c80e5f2f55bb8e2e4a6a3b2284 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 26 Dec 1996 22:40:23 +0000 Subject: (Ffset): Change argument name and doc string. --- src/data.c | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'src') 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, -- cgit v1.2.1