diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2007-10-31 12:46:08 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2007-10-31 12:46:08 +0000 |
| commit | 41a79faa2b69cc245b37a1991b3235c004721a05 (patch) | |
| tree | 6d7f25228b80451bafdfde451f4ba26e1fe6e593 | |
| parent | c896ea954178c4ad39da8a730e56a386e38fdb09 (diff) | |
| download | emacs-41a79faa2b69cc245b37a1991b3235c004721a05.tar.gz | |
(elp-unload-hook): Remove function and variable.
(elp-unload-function): New-style unload function,
adapted from `elp-unload-hook'.
| -rw-r--r-- | lisp/emacs-lisp/elp.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/elp.el b/lisp/emacs-lisp/elp.el index ade2a23608d..71231a86df9 100644 --- a/lisp/emacs-lisp/elp.el +++ b/lisp/emacs-lisp/elp.el @@ -626,9 +626,11 @@ displayed." (and elp-reset-after-results (elp-reset-all)))) -(defun elp-unload-hook () - (elp-restore-all)) -(add-hook 'elp-unload-hook 'elp-unload-hook) +(defun elp-unload-function () + "Unload the Emacs Lisp Profiler." + (elp-restore-all) + ;; continue standard unloading + nil) (provide 'elp) |