diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2007-02-05 23:45:31 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2007-02-05 23:45:31 +0000 |
| commit | 54c6a1c4f5bdc6e2f5da31beaa0c5499f7a56fe5 (patch) | |
| tree | 6a7b27f68947733be84f9f33530e1cb6633f836a /lisp/loadhist.el | |
| parent | 74a5d578f1991fa41d156e9c40c040dcc05e9dd8 (diff) | |
| download | emacs-54c6a1c4f5bdc6e2f5da31beaa0c5499f7a56fe5.tar.gz | |
(unload-feature): Silently ignore `load-history' entries of the form `(defface
. SYMBOL)', and treat `(autoload . SYMBOL)' entries like `defun'. Return nil.
Diffstat (limited to 'lisp/loadhist.el')
| -rw-r--r-- | lisp/loadhist.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/loadhist.el b/lisp/loadhist.el index c6c767f736c..8ca1de4aeca 100644 --- a/lisp/loadhist.el +++ b/lisp/loadhist.el @@ -215,7 +215,7 @@ such as redefining an Emacs function." ;; Remove any feature names that this file provided. (provide (setq features (delq (cdr x) features))) - (defun + ((defun autoload) (let ((fun (cdr x))) (when (fboundp fun) (when (fboundp 'ad-unadvise) @@ -224,7 +224,7 @@ such as redefining an Emacs function." (if aload (fset fun (cons 'autoload aload)) (fmakunbound fun)))))) - ((t require) nil) + ((t require defface) nil) (t (message "Unexpected element %s in load-history" x))) ;; Kill local values as much as possible. (dolist (buf (buffer-list)) @@ -238,7 +238,9 @@ such as redefining an Emacs function." (unless (local-variable-if-set-p x) (makunbound x)))) ;; Delete the load-history element for this file. - (setq load-history (delq (assoc file load-history) load-history)))) + (setq load-history (delq (assoc file load-history) load-history))) + ;; Don't return load-history, it is not useful. + nil) (provide 'loadhist) |