diff options
author | 2019-02-18 23:54:10 -0800 | |
---|---|---|
committer | 2019-02-18 23:54:10 -0800 | |
commit | e6bd52e53afcd8c47e3819627e10098ecd3c4551 (patch) | |
tree | b34ce3ae36e64668aaa5ba2e27d6f00b008b20a1 | |
parent | 614c0d7dbb8bb1e0cc7b27f1a69f1022400b1e9e (diff) | |
download | emacs-config-e6bd52e53afcd8c47e3819627e10098ecd3c4551.tar.gz emacs-config-e6bd52e53afcd8c47e3819627e10098ecd3c4551.zip |
Don’t assume that a proper archive name has been provided
It’s possible that someone enters a URL that isn’t part of the
‘package-archives’ variable. If the name entered doesn’t correspond to a name in
‘package-archives’, use it directly, assuming that it was a URL that was
specified.
-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)) |