mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases Activity

(unload-feature): When we come to (provide . FEATURE),

Browse Source 
remove FEATURE from the features list.
This commit is contained in:
Karl Heuer 1995-05-18 16:51:35 +00:00
parent 2860be63dd
commit c344d4be62
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/loadhist.el
View File

@ -118,7 +118,10 @@ is nil, raise an error."
(mapcar
(function (lambda (x)
(cond ((stringp x) nil)
((consp x) nil)
((consp x)
;; Remove any feature names that this file provided.
(if (eq (car x) 'provide)
(setq features (delq (cdr x) features))))
((boundp x) (makunbound x))
((fboundp x)
(fmakunbound x)