emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master 70fc32f6dd: * src/data.c (Ffset, defalias): Complete last change


From: Stefan Monnier
Subject: master 70fc32f6dd: * src/data.c (Ffset, defalias): Complete last change
Date: Fri, 28 Jan 2022 23:39:42 -0500 (EST)

branch: master
commit 70fc32f6ddef871dd2ae15a3333974f6d8231d6a
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    * src/data.c (Ffset, defalias): Complete last change
    
    Somehow part of the autoload history handling was left behind in `Ffset`
    when the rest was moved to `defalias`.  Finish the job.
    
    * src/data.c (Ffset): Don't set the `autoload` property here...
    (defalias): ... set it here instead.
---
 src/data.c | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/data.c b/src/data.c
index dd6ec4c41a..039e6c3113 100644
--- a/src/data.c
+++ b/src/data.c
@@ -846,9 +846,6 @@ DEFUN ("fset", Ffset, Sfset, 2, 2, 0,
 
   function = XSYMBOL (symbol)->u.s.function;
 
-  if (AUTOLOADP (function))
-    Fput (symbol, Qautoload, XCDR (function));
-
   eassert (valid_lisp_object_p (definition));
 
 #ifdef HAVE_NATIVE_COMP
@@ -880,6 +877,9 @@ defalias (Lisp_Object symbol, Lisp_Object definition)
 
         if (!NILP (Vautoload_queue) && !NILP (function))
           Vautoload_queue = Fcons (Fcons (symbol, function), Vautoload_queue);
+
+        if (AUTOLOADP (function))
+          Fput (symbol, Qautoload, XCDR (function));
       }
   }
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]