Modify select-key embark bit

emacs-citar · Sep 12, 2021 · e0445ab · e0445ab
1 parent 88f79f1
commit e0445ab
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/bibtex-actions.el b/bibtex-actions.el
@@ -257,8 +257,8 @@ It returns an alist of key-entry, where the entry is a field-value alist."
      (lambda (choice)
        ;; Collect citation keys of selected candidate(s).
        (or (cdr (assoc choice candidates))
-           ;; Key is literal coming from embark, just pass it on
-           choice))
+           ;; REVIEW for embark at-point; how to explain?
+           (cdr (seq-find (lambda (cand) (equal choice (cadr cand))) candidates))))
      chosen)))
 
 (defun bibtex-actions-select-file (files)