Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

loadhist.el (read-feature): Conform to completing-read

Browse source 
* 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.
This commit is contained in:
Oleh Krehel 2015-08-12 20:12:14 +02:00
parent ad0b6dd05a
commit 401bc8b28d
1 changed files with 9 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lisp/loadhist.el
View file

@ -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