mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-06 11:50:51 -08:00
Code Issues Projects Releases Wiki 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
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))) (memq x loadhist-hook-functions)))
(dolist (y (cdr flist)) (dolist (y (cdr flist))
(remove-hook x y)))))) (remove-hook x y))))))
(if (fboundp 'elp-restore-list)
(elp-restore-list (cdr flist)))
(mapc (mapc
(lambda (x) (lambda (x)
(cond ((stringp x) nil) (cond ((stringp x) nil)
@ -165,6 +167,8 @@ is nil, raise an error."
(when (boundp x) (when (boundp x)
(makunbound x)) (makunbound x))
(when (fboundp x) (when (fboundp x)
(if (fboundp 'ad-unadvise)
(ad-unadvise x))
(fmakunbound x) (fmakunbound x)
(let ((aload (get x 'autoload))) (let ((aload (get x 'autoload)))
(if aload (fset x (cons 'autoload aload)))))))) (if aload (fset x (cons 'autoload aload))))))))