diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2017-07-27 22:51:37 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2017-07-27 22:51:37 -0400 |
| commit | 955e0cbb32225a53ac8b5b8f2235fb251d83f49e (patch) | |
| tree | 2592e3ec1c568c74987556ff8e83743d96cf6be0 /lisp/emacs-lisp/elp.el | |
| parent | eaa5dc9d102d10c79f10bee1994ad922b8fcf9c4 (diff) | |
| download | emacs-955e0cbb32225a53ac8b5b8f2235fb251d83f49e.tar.gz emacs-955e0cbb32225a53ac8b5b8f2235fb251d83f49e.tar.bz2 emacs-955e0cbb32225a53ac8b5b8f2235fb251d83f49e.zip | |
* lisp/loadhist.el (unload-feature): Remove ad-hoc ELP code
* lisp/emacs-lisp/elp.el (loadhist-unload-element): Un-instrument functions.
Diffstat (limited to 'lisp/emacs-lisp/elp.el')
| -rw-r--r-- | lisp/emacs-lisp/elp.el | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/elp.el b/lisp/emacs-lisp/elp.el index d4500f131a2..7bdd749d5ab 100644 --- a/lisp/emacs-lisp/elp.el +++ b/lisp/emacs-lisp/elp.el @@ -583,6 +583,11 @@ displayed." (elp-restore-all) ;; continue standard unloading nil) + +(cl-defmethod loadhist-unload-element :before :extra "elp" ((x (head defun))) + "Un-instrument before unloading a function." + (elp-restore-function (cdr x))) + (provide 'elp) |