X-Git-Url: https://git.donarmstrong.com/?p=org-ref.git;a=blobdiff_plain;f=isbn.el;h=a759bc072b394688fd04758c2ed1d536e6c97fd0;hp=b70ced252602af2d6e5a22a39da902f6c18d2a80;hb=c0a019259256ee8189620264893c36f10ab1c672;hpb=db5e48b34ab22da2ec8ef43d4256cabf107e286f

diff --git a/isbn.el b/isbn.el
index b70ced2..a759bc0 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
@@ -88,9 +88,9 @@ entry with the generated key already exists in the file."
 	  (concat "\n@book{,\n"
 		  (mapconcat
 		   'identity
-		   (loop for field in (-sort 'string-lessp (mapcar 'car metadata))
-			 collect
-			 (format "  %s={%s}," field (cdr (assoc field metadata))))
+		   (cl-loop for field in (-sort 'string-lessp (mapcar 'car metadata))
+			    collect
+			    (format "  %s={%s}," field (cdr (assoc field metadata))))
 		   "\n")
 		  "\n}\n"))
 
@@ -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))