diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2006-11-05 20:57:32 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2006-11-05 20:57:32 +0000 |
| commit | cf0f58baee6a986021f2a1e9a5b30256e53ad6b9 (patch) | |
| tree | 37bb3873a9bacabf30f7bcfd63654424923c9e9d /lisp/loadhist.el | |
| parent | a7b5712cdf74ca8f76198aaf4f554e33f0f99cd7 (diff) | |
| download | emacs-cf0f58baee6a986021f2a1e9a5b30256e53ad6b9.tar.gz | |
(read-feature): Don't complete features not loaded from a file (which make
`unload-feature' to fail).
Diffstat (limited to 'lisp/loadhist.el')
| -rw-r--r-- | lisp/loadhist.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/loadhist.el b/lisp/loadhist.el index 61f15c8ef1c..6683f8ae413 100644 --- a/lisp/loadhist.el +++ b/lisp/loadhist.el @@ -119,7 +119,9 @@ return the feature \(symbol\)." (mapcar (lambda (feature) (list (symbol-name feature))) features) - nil t))) + ;; Complete only features loaded from a file + #'(lambda (f) (feature-file (intern (car f)))) + t))) (defvaralias 'loadhist-hook-functions 'unload-feature-special-hooks) (defvar unload-feature-special-hooks |