From 669d2f3e9a8a033213dfefe40b380ab268962504 Mon Sep 17 00:00:00 2001
From: Syohei YOSHIDA <syohex@gmail.com>
Date: Wed, 25 Mar 2015 10:45:05 +0900
Subject: [PATCH] Use read-string instead of read-input

Because read-input is a deprecated function.
---
 arxiv.el       | 2 +-
 doi-utils.el   | 4 ++--
 isbn.el        | 4 ++--
 jmax-bibtex.el | 4 ++--
 org-ref.el     | 2 +-
 5 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/arxiv.el b/arxiv.el
index 7837195..5b4a8e0 100644
--- a/arxiv.el
+++ b/arxiv.el
@@ -79,7 +79,7 @@
 (defun arxiv-add-bibtex-entry (arxiv-number bibfile)
   "Add bibtex entry for ARXIV-NUMBER to BIBFILE."
  (interactive
-   (list (read-input "arxiv: ")
+   (list (read-string "arxiv: ")
 	 ;;  now get the bibfile to add it to
 	 (ido-completing-read
 	  "Bibfile: "
diff --git a/doi-utils.el b/doi-utils.el
index e3e8b94..a0af934 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.
@@ -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
diff --git a/isbn.el b/isbn.el
index b70ced2..cb73f68 100644
--- a/isbn.el
+++ b/isbn.el
@@ -46,7 +46,7 @@ file."
 entry with the generated key already exists in the file."
   (interactive
    (list
-    (read-input
+    (read-string
      "ISBN: "
      ;; now set initial input
      (cond
@@ -104,7 +104,7 @@ entry with the generated key already exists in the file."
     (goto-char (point-min))
     (when (search-forward new-key nil t)
       (beep)
-      (setq new-key (read-input
+      (setq new-key (read-string
 		     (format  "%s already exists. Enter new key (C-g to cancel): " new-key)
 		     new-key)))
     (goto-char (point-max))
diff --git a/jmax-bibtex.el b/jmax-bibtex.el
index d25b5bd..52c84b1 100644
--- a/jmax-bibtex.el
+++ b/jmax-bibtex.el
@@ -534,8 +534,8 @@ _u_: Update field _f_: file funcs
    ("K" (lambda ()
 	  (interactive)
 	  (org-ref-set-bibtex-keywords
-	   (read-input "Keywords: "
-		       (bibtex-autokey-get-field "keywords"))
+	   (read-string "Keywords: "
+			(bibtex-autokey-get-field "keywords"))
 	   t)))
    ("b" org-ref-open-in-browser)
    ("r" (lambda () (interactive)
diff --git a/org-ref.el b/org-ref.el
index 7a54058..86a3e5a 100644
--- a/org-ref.el
+++ b/org-ref.el
@@ -3063,7 +3063,7 @@ first key that partially matches.  This version avoids that."
 User is prompted for tags.  This function is called from `helm-bibtex'.
 Argument CANDIDATES helm candidates."
   (message "")
-  (let ((keywords (read-input "Keywords (comma separated): ")))
+  (let ((keywords (read-string "Keywords (comma separated): ")))
     (loop for key in (helm-marked-candidates)
 	  do
 	  (save-window-excursion
-- 
2.39.2