From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 29 Jan 2022 07:12:30 +0000 (+0200)
Subject: Fix compiler warning due to a recent change
X-Git-Tag: emacs-29.0.90~2675
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c4e66bb2b567f9dced364013a84ba415dd55290d;p=emacs.git

Fix compiler warning due to a recent change

* src/data.c (Ffset): Avoid compiler warning about 'function'.
---

diff --git a/src/data.c b/src/data.c
index 039e6c31134..a5a76a27554 100644
--- a/src/data.c
+++ b/src/data.c
@@ -836,7 +836,6 @@ DEFUN ("fset", Ffset, Sfset, 2, 2, 0,
        doc: /* Set SYMBOL's function definition to DEFINITION, and return DEFINITION.  */)
   (register Lisp_Object symbol, Lisp_Object definition)
 {
-  register Lisp_Object function;
   CHECK_SYMBOL (symbol);
   /* Perhaps not quite the right error signal, but seems good enough.  */
   if (NILP (symbol) && !NILP (definition))
@@ -844,11 +843,11 @@ DEFUN ("fset", Ffset, Sfset, 2, 2, 0,
        think this one little sanity check is worth its cost, but anyway.  */
     xsignal1 (Qsetting_constant, symbol);
 
-  function = XSYMBOL (symbol)->u.s.function;
-
   eassert (valid_lisp_object_p (definition));
 
 #ifdef HAVE_NATIVE_COMP
+  register Lisp_Object function = XSYMBOL (symbol)->u.s.function;
+
   if (comp_enable_subr_trampolines
       && SUBRP (function)
       && !SUBR_NATIVE_COMPILEDP (function))