[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));
}
}
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 70fc32f6dd: * src/data.c (Ffset, defalias): Complete last change,
Stefan Monnier <=