(elp-unload-hook): New function.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 98f2beb8ddf412a0329014f163beab8f61d6b2b9..112fdfd6f4fc45bf0dfb717b6b450ab6793b44e9 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -39,6 +39,12 @@
        * progmodes/cc-menus.el (imenu-generic-expression)
        (imenu-progress-message): Only defvar when compiling.
 
+       * emacs-lisp/elp.el (elp-unload-hook): New function.
+
+       * loadhist.el (unload-feature): Call elp-restore-function,
+       checking for symbols; don't use elp-restore-all.
+       (loadhist-hook-functions): Doc fix.
+
 2000-10-30  Stefan Monnier  <monnier@cs.yale.edu>
 
        * log-edit.el (log-edit-confirm): Fix the default.

diff --git a/lisp/emacs-lisp/elp.el b/lisp/emacs-lisp/elp.el
index 308ab51ff61527377aaa1898c5f2f5e9716f14ed..60e36300a911055bfdfbc488039a0397221dfb26 100644 (file)
--- a/lisp/emacs-lisp/elp.el
+++ b/lisp/emacs-lisp/elp.el
@@ -577,6 +577,9 @@ displayed."
     ;; reset profiling info if desired
     (and elp-reset-after-results
         (elp-reset-all))))
+
+(defun elp-unload-hook ()
+  (elp-restore-all))
 \f
 (provide 'elp)