forked from mirrors/org-mode
oc-basic: Fix `org-cite-basic-goto'
* lisp/oc-basic.el (org-cite-basic-goto): Set BibTeX dialect before calling `bibtex-search-entry'.
This commit is contained in:
parent
c839849aba
commit
c0dde2c800
|
@ -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)
|
||||
(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 "{")))))
|
||||
(search-backward "{")))
|
||||
(_
|
||||
(bibtex-set-dialect)
|
||||
(bibtex-search-entry key)))))
|
||||
|
||||
|
||||
;;; "Insert" capability
|
||||
|
|
Loading…
Reference in a new issue