Use read-string instead of read-input
authorSyohei YOSHIDA <syohex@gmail.com>
Wed, 25 Mar 2015 01:45:05 +0000 (10:45 +0900)
committerSyohei YOSHIDA <syohex@gmail.com>
Wed, 25 Mar 2015 01:47:40 +0000 (10:47 +0900)
Because read-input is a deprecated function.

arxiv.el
doi-utils.el
isbn.el
jmax-bibtex.el
org-ref.el

index 7837195..5b4a8e0 100644 (file)
--- 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: "
index e3e8b94..a0af934 100644 (file)
@@ -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 (file)
--- 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))
index d25b5bd..52c84b1 100644 (file)
@@ -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)
index 7a54058..86a3e5a 100644 (file)
@@ -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