Use read-string instead of read-input

[org-ref.git] / isbn.el

diff --git a/isbn.el b/isbn.el
index b70ced252602af2d6e5a22a39da902f6c18d2a80..cb73f6852f5ed5c861666e4a82c58e3104169a57 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))