tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

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

Browse source 
* lisp/oc-basic.el (org-cite-basic-goto): Set BibTeX dialect before
calling `bibtex-search-entry'.
This commit is contained in:
Nicolas Goaziou 2021-07-30 08:52:34 +02:00
parent c839849aba
commit c0dde2c800
1 changed files with 9 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
lisp/oc-basic.el
View file

@ -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