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

ad-unadvise.

1 files changed, 4 insertions, 0 deletions

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))))))))