From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 26 Dec 1996 22:41:42 +0000 (+0000)
Subject: (Fdefalias): Change argument name and doc string.
X-Git-Tag: emacs-20.1~3188
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=73e0d965cc16901f662e1c4e23f79c9b68a636a7;p=emacs.git

(Fdefalias): Change argument name and doc string.
---

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,