adding more for extra-fields function

tmalsburg · Feb 27, 2021 · 4fa15d0 · 4fa15d0
1 parent a416f29
commit 4fa15d0
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/bibtex-completion.el b/bibtex-completion.el
@@ -522,10 +522,12 @@ for string replacement."
 (defun bibtex-completion--get-extra-search-data (candidate)
   "Return extended search metadata as string."
   ;; TODO
-  ;; - add hidden data for search as "invisible" properties
   (if bibtex-completion-additional-search-fields
       ; if the data is present, pull its value(s), join into a single string
-      ))
+      (cl-loop
+      for field in (bibtex-completion-additional-search-fields)
+      (cdr (assoc field (cdr(candidate))))
+      )))
 
 (defun bibtex-completion-candidates ()
   "Read the BibTeX files and return a list of conses, one for each entry.