* lisp/loadhist.el (loadhist-unload-element): Remove auxiliary function info

See bug#50869.

diff --git a/lisp/loadhist.el b/lisp/loadhist.el
index b4ed0432465789938b69a528ecd1a9a69860b718..0cb02f072ea5ab0e53e1b6dcc59b114aa32290d9 100644 (file)
--- 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)