[Emacs-diffs] master 401bc8b: loadhist.el (read-feature): Conform to completing-read

[Oleh Krehel]

branch: master
commit 401bc8b28d47db697e4997d35059ce5bc45f5648
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>

    loadhist.el (read-feature): Conform to completing-read
    
    * lisp/loadhist.el (read-feature): According to `completing-read'
      documentation, if collection is a list, then it must be a list of
      strings. And not a list of symbols like before.
---
 lisp/loadhist.el |   13 +++++++++----
 1 files changed, 9 insertions(+), 4 deletions(-)

diff --git a/lisp/loadhist.el b/lisp/loadhist.el
index 056a4ef..52fd047 100644
--- a/lisp/loadhist.el
+++ b/lisp/loadhist.el
@@ -101,10 +101,15 @@ A library name is equivalent to the file name that 
`load-library' would load."
   "Read feature name from the minibuffer, prompting with string PROMPT.
 If optional second arg LOADED-P is non-nil, the feature must be loaded
 from a file."
-  (intern (completing-read prompt
-                          features
-                          (and loaded-p #'feature-file)
-                          loaded-p)))
+  (intern (completing-read
+           prompt
+           (mapcar #'symbol-name
+                   (if loaded-p
+                       (delq nil
+                             (mapcar
+                              (lambda (x) (and (feature-file x) x))
+                              features))
+                     features)))))
 
 (defvaralias 'loadhist-hook-functions 'unload-feature-special-hooks)
 (defvar unload-feature-special-hooks