Преглед изворни кода

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 година
родитељ
комит
c0dde2c800
1 измењених фајлова са 9 додато и 6 уклоњено
  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