aboutsummaryrefslogtreecommitdiffstats
path: root/src/data.c
diff options
context:
space:
mode:
authorStefan Monnier2022-01-28 23:39:31 -0500
committerStefan Monnier2022-01-28 23:39:31 -0500
commit70fc32f6ddef871dd2ae15a3333974f6d8231d6a (patch)
treeccfdc687becd0537964ca1b45bd1f3d34b83ba01 /src/data.c
parent7531bf096eb3f1b0b6612e94eb5211405e049fee (diff)
downloademacs-70fc32f6ddef871dd2ae15a3333974f6d8231d6a.tar.gz
emacs-70fc32f6ddef871dd2ae15a3333974f6d8231d6a.zip
* 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.
Diffstat (limited to 'src/data.c')
-rw-r--r--src/data.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/data.c b/src/data.c
index dd6ec4c41a8..039e6c31134 100644
--- a/src/data.c
+++ b/src/data.c
@@ -846,9 +846,6 @@ DEFUN ("fset", Ffset, Sfset, 2, 2, 0,
846 846
847 function = XSYMBOL (symbol)->u.s.function; 847 function = XSYMBOL (symbol)->u.s.function;
848 848
849 if (AUTOLOADP (function))
850 Fput (symbol, Qautoload, XCDR (function));
851
852 eassert (valid_lisp_object_p (definition)); 849 eassert (valid_lisp_object_p (definition));
853 850
854#ifdef HAVE_NATIVE_COMP 851#ifdef HAVE_NATIVE_COMP
@@ -880,6 +877,9 @@ defalias (Lisp_Object symbol, Lisp_Object definition)
880 877
881 if (!NILP (Vautoload_queue) && !NILP (function)) 878 if (!NILP (Vautoload_queue) && !NILP (function))
882 Vautoload_queue = Fcons (Fcons (symbol, function), Vautoload_queue); 879 Vautoload_queue = Fcons (Fcons (symbol, function), Vautoload_queue);
880
881 if (AUTOLOADP (function))
882 Fput (symbol, Qautoload, XCDR (function));
883 } 883 }
884 } 884 }
885 885