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