# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1193834768 0
# Node ID efa76b2f6668023932e5d4861d7b7e5bd719c9a9
# Parent  0d668376c2e1ada18c4f4a27d69d383a5eb3b538
(elp-unload-hook): Remove function and variable.
(elp-unload-function): New-style unload function,
adapted from `elp-unload-hook'.

diff -r 0d668376c2e1 -r efa76b2f6668 lisp/emacs-lisp/elp.el
--- a/lisp/emacs-lisp/elp.el	Wed Oct 31 12:39:44 2007 +0000
+++ b/lisp/emacs-lisp/elp.el	Wed Oct 31 12:46:08 2007 +0000
@@ -626,9 +626,11 @@
     (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)