X-Git-Url: https://git.donarmstrong.com/?p=org-ref.git;a=blobdiff_plain;f=doi-utils.el;h=78736871a7c4852c4bd24e5e82ddae9282b86040;hp=e3e8b94cb86866433ee5b95c46033912835fa22f;hb=d9d107c9e0aeb8c285c6aeef774059fee0bbac6d;hpb=a28522b48c126dba09e182ae3a790bc2f94f56ba

diff --git a/doi-utils.el b/doi-utils.el
index e3e8b94..7873687 100644
--- a/doi-utils.el
+++ b/doi-utils.el
@@ -530,7 +530,7 @@ prompt. If no region is selected and the first entry of the
 kill-ring starts like a DOI, then that is the intial
 prompt. Otherwise, you have to type or pste in a DOI."
   (interactive
-   (list (read-input "DOI: "
+   (list (read-string "DOI: "
 		     ;; now set initial input
 		     (cond
 		      ;; If region is active and it starts like a doi we want it.
@@ -603,7 +603,7 @@ Optional argument NODELIM see `bibtex-make-field'."
 
 (defun plist-get-keys (plist)
    "Return keys in a PLIST."
-  (loop
+  (cl-loop
    for key in results by #'cddr collect key))
 
 (defun doi-utils-update-bibtex-entry-from-doi (doi)
@@ -917,7 +917,7 @@ error."
 (defun doi-utils-add-entry-from-crossref-query (query bibtex-file)
   "Search Crossref with QUERY and use helm to select an entry to add to BIBTEX-FILE."
   (interactive (list
-		(read-input
+		(read-string
 		 "Query: "
 		 ;; now set initial input
 		 (cond