mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-26 10:49:33 +00:00
Code Issues Releases Activity

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

Browse Source 
See bug#50869.
This commit is contained in:
Stefan Monnier 2022-09-03 10:40:47 -04:00
parent 06f440eb81
commit bf37ea1873
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/loadhist.el
View File

@ -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)