(unload-feature): When we come to (provide . FEATURE),

remove FEATURE from the features list.

1 files changed, 4 insertions, 1 deletions

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)