diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2022-09-03 10:40:47 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2022-09-03 10:54:50 -0400 |
| commit | bf37ea1873cd2cec1072afb10e885b3a654e8829 (patch) | |
| tree | 3159596da14bd49abc0f6d5a7e88fe289ef19ed5 /lisp/loadhist.el | |
| parent | 06f440eb814636fc6c5ed9d785a2f5ef980ea5e8 (diff) | |
| download | emacs-bf37ea1873cd2cec1072afb10e885b3a654e8829.tar.gz emacs-bf37ea1873cd2cec1072afb10e885b3a654e8829.tar.bz2 emacs-bf37ea1873cd2cec1072afb10e885b3a654e8829.zip | |
* lisp/loadhist.el (loadhist-unload-element): Remove auxiliary function info
See bug#50869.
Diffstat (limited to 'lisp/loadhist.el')
| -rw-r--r-- | lisp/loadhist.el | 7 |
1 files changed, 7 insertions, 0 deletions
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) |