[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/cape e623553528 1/2: cape-company-to-capf: Do not delet
From: |
ELPA Syncer |
Subject: |
[elpa] externals/cape e623553528 1/2: cape-company-to-capf: Do not delete duplicates |
Date: |
Fri, 8 Dec 2023 03:57:33 -0500 (EST) |
branch: externals/cape
commit e6235535281cd7f40213ad78ed9f03e8d078fbff
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>
cape-company-to-capf: Do not delete duplicates
Duplicates are deleted by Capf UIs.
---
cape.el | 2 --
1 file changed, 2 deletions(-)
diff --git a/cape.el b/cape.el
index 00646eb62f..4c9ec3c6c9 100644
--- a/cape.el
+++ b/cape.el
@@ -784,7 +784,6 @@ changed. The function `cape-company-to-capf' is
experimental."
(when-let ((prefix (cape--company-call backend 'prefix))
(initial-input (if (stringp prefix) prefix (car-safe prefix))))
(let* ((end (point)) (beg (- end (length initial-input)))
- (dups (cape--company-call backend 'duplicates))
(valid (if (cape--company-call backend 'no-cache initial-input)
#'equal (or valid #'string-prefix-p)))
candidates)
@@ -798,7 +797,6 @@ changed. The function `cape-company-to-capf' is
experimental."
beg end
(lambda (input)
(setq candidates (cape--company-call backend 'candidates
input))
- (when dups (setq candidates (delete-dups candidates)))
(cons (apply-partially valid input) candidates)))
:category backend
:sort (not (cape--company-call backend 'sorted))))