Mercurial > hg > xemacs-beta

diff lisp/loadhist.el @ 5671:f45338de7caa

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge in my release prep stuff.
author Stephen J. Turnbull <stephen@xemacs.org>
date Fri, 03 Aug 2012 02:05:08 +0900
parents cc6f0266bc36
children
line wrap: on
line diff
--- a/lisp/loadhist.el	Fri Aug 03 02:00:29 2012 +0900
+++ b/lisp/loadhist.el	Fri Aug 03 02:05:08 2012 +0900
@@ -185,7 +185,7 @@
                  ((consp x)
                   ;; Remove any feature names that this file provided.
                   (if (eq (car x) 'provide)
-                      (setq features (delq (cdr x) features))
+                      (setq features (delete* (cdr x) features))
                     (if (eq (car x) 'module)
                         (setq unloading-module t))))
                  ((and (boundp x)
@@ -201,7 +201,7 @@
        (cdr flist)))
     ;; Delete the load-history element for this file.
     (let ((elt (assoc file load-history)))
-      (setq load-history (delq elt load-history)))
+      (setq load-history (delete* elt load-history)))
     ;; If it is a module, really unload it.
     (if unloading-module
 	(declare-fboundp (unload-module (symbol-name feature))))))