add back my makefile

[org-ref.git] / arxiv.el

diff --git a/arxiv.el b/arxiv.el
index 783719535f48a44cc58da1b8a0a6735b6a4f268b..4ca96afa9f6e24964776a0c49a43215d74cdba69 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
 (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: "
         ;;  now get the bibfile to add it to
         (ido-completing-read
          "Bibfile: "


@@ -107,13 +107,13 @@
     (url-copy-file pdf-url pdf)
     ;; now check if we got a pdf
     (with-temp-buffer
     (url-copy-file pdf-url pdf)
     ;; now check if we got a pdf
     (with-temp-buffer

-      (insert-file-contents pdf-file)
+      (insert-file-contents pdf)

       ;; PDFS start with %PDF-1.x as the first few characters.
       (if (not (string= (buffer-substring 1 6) "%PDF-"))
          (progn
            (message "%s" (buffer-string))
       ;; PDFS start with %PDF-1.x as the first few characters.
       (if (not (string= (buffer-substring 1 6) "%PDF-"))
          (progn
            (message "%s" (buffer-string))

-           (delete-file pdf-file))
-       (message "%s saved" pdf-file)))
+           (delete-file pdf))
+       (message "%s saved" pdf)))

 
     (org-open-file pdf)))
 
 
     (org-open-file pdf)))