# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1162759957 0
# Node ID ccbdd770cd6247d74892bf7d79996efe91703cae
# Parent  4fd71901f11b242f693dc3216e79e1295fccfa26
(read-feature): Don't complete features not loaded from a file (which make
`unload-feature' to fail).

diff -r 4fd71901f11b -r ccbdd770cd62 lisp/loadhist.el
--- a/lisp/loadhist.el	Sun Nov 05 20:16:02 2006 +0000
+++ b/lisp/loadhist.el	Sun Nov 05 20:52:37 2006 +0000
@@ -119,7 +119,9 @@
 			   (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