Use 'completing-read in 'package-build-archive; helpful when debugging

This commit is contained in:
Steve Purcell 2012-01-28 20:01:37 +00:00
parent a2068c01e1
commit e2e25c722a

View file

@ -257,7 +257,7 @@
(defun package-build-archive (file-name)
"build a package archive"
(interactive)
(interactive (list (completing-read "Package: " (mapc 'car package-build-alist))))
(let* ((name (intern file-name))
(cfg (cdr (assoc name package-build-alist)))