Commit 2249360b authored by Dave Love's avatar Dave Love
Browse files

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

ad-unadvise.
parent 7d354dd5
......@@ -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))))))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment