From: John Kitchin <jkitchin@andrew.cmu.edu>
Date: Thu, 9 Apr 2015 13:37:32 +0000 (-0400)
Subject: merged fix from https://github.com/jkitchin/org-ref/pull/32
X-Git-Url: https://git.donarmstrong.com/?p=org-ref.git;a=commitdiff_plain;h=95898732eda8a114e1aa5a06940293a1e00ce2ae;hp=-c

merged fix from https://github.com/jkitchin/org-ref/pull/32
---

95898732eda8a114e1aa5a06940293a1e00ce2ae
diff --combined org-ref.el
index f866ab9,8be10ef..9f02da8
--- a/org-ref.el
+++ b/org-ref.el
@@@ -507,7 -507,7 +507,7 @@@ Format according to the type in `org-re
  
      (with-temp-buffer
        (insert-file-contents file)
-       (bibtex-set-dialect nil t)
+       (bibtex-set-dialect (parsebib-find-bibtex-dialect) t)
        (bibtex-search-entry key nil 0)
        (setq bibtex-entry (bibtex-parse-entry))
        ;; downcase field names so they work in the format-citation code
@@@ -582,7 -582,7 +582,7 @@@
  
      (with-temp-buffer
        (insert-file-contents file)
-       (bibtex-set-dialect nil t)
+       (bibtex-set-dialect (parsebib-find-bibtex-dialect) t)
        (bibtex-search-entry key nil 0)
        (setq entry (bibtex-parse-entry))
        (format "** %s - %s
@@@ -1541,7 -1541,7 +1541,7 @@@ falling back to what the user has set i
      (save-excursion
        (with-temp-buffer
          (insert-file-contents bibfile)
- 	(bibtex-set-dialect nil t)
+         (bibtex-set-dialect (parsebib-find-bibtex-dialect) t)
          (bibtex-search-entry key)
          ;; I like this better than bibtex-url which does not always find
          ;; the urls
@@@ -1568,7 -1568,7 +1568,7 @@@
      (save-excursion
        (with-temp-buffer
          (insert-file-contents bibfile)
- 	(bibtex-set-dialect nil t)
+         (bibtex-set-dialect (parsebib-find-bibtex-dialect) t)
          (bibtex-search-entry key)
          (org-ref-open-bibtex-notes)))))
  
@@@ -1583,7 -1583,7 +1583,7 @@@
      (message "%s" (progn
  		    (with-temp-buffer
                        (insert-file-contents bibfile)
- 		      (bibtex-set-dialect nil t)
+                       (bibtex-set-dialect (parsebib-find-bibtex-dialect) t)
                        (bibtex-search-entry key)
                        (org-ref-bib-citation))))))
  
@@@ -1656,7 -1656,7 +1656,7 @@@ Prompt for NEW-FILE includes bib files 
      (save-excursion
        (with-temp-buffer
          (insert-file-contents bibfile)
- 	(bibtex-set-dialect nil t)
+         (bibtex-set-dialect (parsebib-find-bibtex-dialect) t)
          (bibtex-search-entry key)
  	(setq doi (bibtex-autokey-get-field "doi"))
  	;; in case doi is a url, remove the url part.
@@@ -1714,13 -1714,13 +1714,13 @@@ get a lot of options.  LINK-STRING is u
  	 (url (save-excursion
  		(with-temp-buffer
  		  (insert-file-contents bibfile)
- 		  (bibtex-set-dialect nil t)
+                   (bibtex-set-dialect (parsebib-find-bibtex-dialect) t)
  		  (bibtex-search-entry key)
  		  (bibtex-autokey-get-field "url"))))
  	 (doi (save-excursion
  		(with-temp-buffer
  		  (insert-file-contents bibfile)
- 		  (bibtex-set-dialect nil t)
+                   (bibtex-set-dialect (parsebib-find-bibtex-dialect) t)
  		  (bibtex-search-entry key)
  		  ;; I like this better than bibtex-url which does not always find
  		  ;; the urls
@@@ -1797,7 -1797,7 +1797,7 @@@
  	(save-excursion
  	  (with-temp-buffer
  	    (insert-file-contents bibfile)
- 	    (bibtex-set-dialect nil t)
+             (bibtex-set-dialect (parsebib-find-bibtex-dialect) t)
  	    (bibtex-search-entry key)
  	    (org-ref-bib-citation))))
        "\n"
@@@ -2102,7 -2102,7 +2102,7 @@@ arg (ALTERNATIVE-CITE) to get a menu o
  (defun org-ref-bib-citation ()
    "From a bibtex entry, create and return a simple citation string.
  This assumes you are in an article."
 -
 +  (bibtex-set-dialect nil t)
    (bibtex-beginning-of-entry)
    (let* ((cb (current-buffer))
  	 (bibtex-expand-strings t)
@@@ -2749,7 -2749,7 +2749,7 @@@ Shows bad citations, ref links and labe
  	 (bibfile (cdr results)))
      (with-temp-buffer
        (insert-file-contents bibfile)
-       (bibtex-set-dialect nil t)
+       (bibtex-set-dialect (parsebib-find-bibtex-dialect) t)
        (bibtex-search-entry key nil 0)
        (prog1 (reftex-get-bib-field "year" (bibtex-parse-entry t))
          ))))
@@@ -3237,7 -3237,7 +3237,7 @@@ With two prefix args, insert a label li
  	(save-excursion
  	  (with-temp-buffer
  	    (insert-file-contents bibfile)
- 	    (bibtex-set-dialect nil t)
+             (bibtex-set-dialect (parsebib-find-bibtex-dialect) t)
  	    (bibtex-search-entry key)
  	    (org-ref-bib-citation)))
        "!!! No entry found !!!" )))
@@@ -3253,13 -3253,13 +3253,13 @@@ Checks for pdf and doi, and add appropr
  	 (url (save-excursion
  		(with-temp-buffer
  		  (insert-file-contents bibfile)
- 		  (bibtex-set-dialect nil t)
+                   (bibtex-set-dialect (parsebib-find-bibtex-dialect) t)
  		  (bibtex-search-entry key)
  		  (bibtex-autokey-get-field "url"))))
  	 (doi (save-excursion
  		(with-temp-buffer
  		  (insert-file-contents bibfile)
- 		  (bibtex-set-dialect nil t)
+                   (bibtex-set-dialect (parsebib-find-bibtex-dialect) t)
  		  (bibtex-search-entry key)
  		  ;; I like this better than bibtex-url which does not always find
  		  ;; the urls