mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-22 13:40:44 -08:00
Code Issues Projects Releases Wiki 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
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 (mapcar
(function (lambda (x) (function (lambda (x)
(cond ((stringp x) nil) (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)) ((boundp x) (makunbound x))
((fboundp x) ((fboundp x)
(fmakunbound x) (fmakunbound x)