From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sat, 3 Sep 2022 14:40:47 +0000 (-0400)
Subject: * lisp/loadhist.el (loadhist-unload-element): Remove auxiliary function info
X-Git-Tag: emacs-29.0.90~1856^2~758
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bf37ea1873cd2cec1072afb10e885b3a654e8829;p=emacs.git

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

See bug#50869.
---

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)