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

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

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,