emacs-elpa-diffs
[Top][All Lists]
Advanced

[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))))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]