diff options
Diffstat (limited to 'oni-package.el')
| -rw-r--r-- | oni-package.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/oni-package.el b/oni-package.el index dfbed53..101dd71 100644 --- a/oni-package.el +++ b/oni-package.el @@ -4,7 +4,7 @@ ;; Author: Tom Willemse <tom@ryuslash.org> ;; Keywords: local -;; Version: 20190218233951 +;; Version: 20190218235251 ;; This program is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by @@ -63,8 +63,10 @@ DESCRIPTION is the text of the news item." (list (read-string "Title: ") (read-string "Text: ") - (alist-get (completing-read "Archive: " (mapcar 'car package-archives)) - package-archives nil nil #'string-equal))) + (let ((archive-name + (completing-read "Archive: " (mapcar 'car package-archives)))) + (or (alist-get archive-name package-archives nil nil #'string-equal) + archive-name)))) (package--update-file "elpa.rss" "<description>" (package--make-rss-entry title description archive-url)) |