Mercurial > emacs

comparison lisp/loadhist.el @ 11844:cacb7820d1c7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 b8ba33ac2f22
children f442c14a79c4
comparison
equal deleted inserted replaced
11843:3ab3cc97fadc 11844:cacb7820d1c7
116 ))) 116 )))
117 (let* ((flist (feature-symbols feature)) (file (car flist))) 117 (let* ((flist (feature-symbols feature)) (file (car flist)))
118 (mapcar 118 (mapcar
119 (function (lambda (x) 119 (function (lambda (x)
120 (cond ((stringp x) nil) 120 (cond ((stringp x) nil)
121 ((consp x) nil) 121 ((consp x)
122 ;; Remove any feature names that this file provided.
123 (if (eq (car x) 'provide)
124 (setq features (delq (cdr x) features))))
122 ((boundp x) (makunbound x)) 125 ((boundp x) (makunbound x))
123 ((fboundp x) 126 ((fboundp x)
124 (fmakunbound x) 127 (fmakunbound x)
125 (let ((aload (get x 'autoload))) 128 (let ((aload (get x 'autoload)))
126 (if aload (fset x (cons 'autoload aload))))))) 129 (if aload (fset x (cons 'autoload aload)))))))