From 73e0d965cc16901f662e1c4e23f79c9b68a636a7 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 26 Dec 1996 22:41:42 +0000 Subject: [PATCH] (Fdefalias): Change argument name and doc string. --- src/data.c | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/src/data.c b/src/data.c index 4357fa79c0a..e64dcf800b3 100644 --- a/src/data.c +++ b/src/data.c @@ -646,24 +646,24 @@ DEFUN ("fset", Ffset, Sfset, 2, 2, 0, } DEFUN ("defalias", Fdefalias, Sdefalias, 2, 2, 0, - "Set SYMBOL's function definition to NEWDEF, and return NEWDEF.\n\ + "Set SYMBOL's function definition to DEFINITION, and return DEFINITION.\n\ Associates the function with the current load file, if any.") - (symbol, newdef) - register Lisp_Object symbol, newdef; + (symbol, definition) + register Lisp_Object symbol, definition; { CHECK_SYMBOL (symbol, 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; } LOADHIST_ATTACH (symbol); - return newdef; + return definition; } DEFUN ("setplist", Fsetplist, Ssetplist, 2, 2, 0, -- 2.39.5