diff options
| author | Dave Love <fx@gnu.org> | 2000-09-17 19:29:19 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 2000-09-17 19:29:19 +0000 |
| commit | 2249360b6332d17993a963ef63c72c8f3de33160 (patch) | |
| tree | 845c393f145c13d7ab92efc82d941fece5604853 | |
| parent | 7d354dd5ee0448b6fa583230a575114f38c28eda (diff) | |
| download | emacs-2249360b6332d17993a963ef63c72c8f3de33160.tar.gz | |
(unload-feature): Maybe call elp-restore-list and
ad-unadvise.
| -rw-r--r-- | lisp/loadhist.el | 4 |
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)))))))) |