mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-24 10:38:38 +00:00
Code Issues Releases Activity

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

Browse Source 
ad-unadvise.
This commit is contained in:
Dave Love 2000-09-17 19:29:19 +00:00
parent 7d354dd5ee
commit 2249360b63
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/loadhist.el
View File

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