Browse Source

oc-basic: Fix `org-cite-basic-goto'

* lisp/oc-basic.el (org-cite-basic-goto): Set BibTeX dialect before
calling `bibtex-search-entry'.
Nicolas Goaziou 3 years ago
parent
commit
c0dde2c800
1 changed files with 9 additions and 6 deletions
  1. 9 6
      lisp/oc-basic.el

+ 9 - 6
lisp/oc-basic.el

@@ -654,12 +654,15 @@ present in the citation."
             (`(,f . ,_) f)
             (_  (user-error "Cannot find citation key: %S" key)))))
     (org-open-file file '(4))
-    (if (not (equal "json" (file-name-extension file)))
-        (bibtex-search-entry key)
-      (let ((regexp (rx "\"id\":" (0+ (any "[ \t]")) "\"" (literal key) "\"")))
-        (goto-char (point-min))
-        (re-search-forward regexp)
-        (search-backward "{")))))
+    (pcase (file-name-extension file)
+      ("json"
+       (let ((regexp (rx "\"id\":" (0+ (any "[ \t]")) "\"" (literal key) "\"")))
+         (goto-char (point-min))
+         (re-search-forward regexp)
+         (search-backward "{")))
+      (_
+       (bibtex-set-dialect)
+       (bibtex-search-entry key)))))
 
 
 ;;; "Insert" capability