From: Karl Heuer <kwzh@gnu.org>
Date: Thu, 18 May 1995 16:51:35 +0000 (+0000)
Subject: (unload-feature): When we come to (provide . FEATURE),
X-Git-Tag: emacs-19.34~4014
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c344d4be628e9893d7ed9f0dea87abdd7e64d93c;p=emacs.git

(unload-feature): When we come to (provide . FEATURE),
remove FEATURE from the features list.
---

diff --git a/lisp/loadhist.el b/lisp/loadhist.el
index d541a701405..2a62ab51b0d 100644
--- a/lisp/loadhist.el
+++ b/lisp/loadhist.el
@@ -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)