fixed --get-candidates

tmalsburg · Feb 27, 2021 · 0ebfea9 · 0ebfea9
1 parent 54b8b4b
commit 0ebfea9
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/bibtex-completion.el b/bibtex-completion.el
@@ -517,10 +517,9 @@ for string replacement."
    collect
    (cons
     ;; Here use one string for display, and the other for search.
-    ;; TODO not working correctly
-    (concat(car (candidate)))
-           (propertize (bibtex-completion-format-entry candidate) 'display)))
-    (cdr (assoc "=key=" candidate)))
+    (propertize
+     (car candidate) 'display (bibtex-completion-format-entry candidate (1- (frame-width))))
+    (cdr (assoc "=key=" candidate)))))
 
 (defun bibtex-completion-candidates ()
   "Read the BibTeX files and return a list of conses, one for each entry.