From bf37ea1873cd2cec1072afb10e885b3a654e8829 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sat, 3 Sep 2022 10:40:47 -0400 Subject: [PATCH] * lisp/loadhist.el (loadhist-unload-element): Remove auxiliary function info See bug#50869. --- lisp/loadhist.el | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/lisp/loadhist.el b/lisp/loadhist.el index b4ed0432465..0cb02f072ea 100644 --- a/lisp/loadhist.el +++ b/lisp/loadhist.el @@ -171,6 +171,13 @@ unloading." (cond ((null hist) (defalias fun nil) + ;; FIXME: Arguably these properties should be applied via + ;; `define-symbol-prop', but most code still uses just `put'. + ;; FIXME: Maybe these properties should be attached to the + ;; function itself (as for `advertised-calling-convention') + ;; rather than to its symbol. + (if (get fun 'compiler-macro) (put fun 'compiler-macro nil)) + (if (get fun 'gv-expander) (put fun 'gv-expander nil)) ;; Override the change that `defalias' just recorded. (put fun 'function-history nil)) ((equal (car hist) loadhist-unload-filename) -- 2.39.2