From: Dave Love <fx@gnu.org>
Date: Sun, 17 Sep 2000 19:29:19 +0000 (+0000)
Subject: (unload-feature): Maybe call elp-restore-list and
X-Git-Tag: emacs-pretest-21.0.90~1557
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2249360b6332d17993a963ef63c72c8f3de33160;p=emacs.git

(unload-feature): Maybe call elp-restore-list and
ad-unadvise.
---

diff --git a/lisp/loadhist.el b/lisp/loadhist.el
index 402a3ce35b9..db760c25b32 100644
--- a/lisp/loadhist.el
+++ b/lisp/loadhist.el
@@ -154,6 +154,8 @@ is nil, raise an error."
                       (memq x loadhist-hook-functions)))
 	     (dolist (y (cdr flist))
 	       (remove-hook x y))))))
+    (if (fboundp 'elp-restore-list)
+	(elp-restore-list (cdr flist)))
     (mapc
      (lambda (x)
        (cond ((stringp x) nil)
@@ -165,6 +167,8 @@ is nil, raise an error."
 	      (when (boundp x)
 		(makunbound x))
 	      (when (fboundp x)
+		(if (fboundp 'ad-unadvise)
+		    (ad-unadvise x))
 		(fmakunbound x)
 		(let ((aload (get x 'autoload)))
 		  (if aload (fset x (cons 'autoload aload))))))))