From c344d4be628e9893d7ed9f0dea87abdd7e64d93c Mon Sep 17 00:00:00 2001
From: Karl Heuer <kwzh@gnu.org>
Date: Thu, 18 May 1995 16:51:35 +0000
Subject: [PATCH] (unload-feature): When we come to (provide . FEATURE), remove
 FEATURE from the features list.

---
 lisp/loadhist.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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