Mercurial > emacs
changeset 11844:cacb7820d1c7
(unload-feature): When we come to (provide . FEATURE),
remove FEATURE from the features list.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Thu, 18 May 1995 16:51:35 +0000 |
| parents | 3ab3cc97fadc |
| children | c2179a288898 |
| files | lisp/loadhist.el |
| diffstat | 1 files changed, 4 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/loadhist.el Wed May 17 20:54:49 1995 +0000 +++ b/lisp/loadhist.el Thu May 18 16:51:35 1995 +0000 @@ -118,7 +118,10 @@ (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)