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

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/helm c6f141c4d2 3/5: Don't handle default from helm-comple


From: ELPA Syncer
Subject: [nongnu] elpa/helm c6f141c4d2 3/5: Don't handle default from helm-completion--initial-filter
Date: Sun, 6 Aug 2023 12:59:49 -0400 (EDT)

branch: elpa/helm
commit c6f141c4d2e1d263bf0da5f47a1b22850e9ba164
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>

    Don't handle default from helm-completion--initial-filter
    
    it is done later by next FCT.
---
 helm-mode.el | 12 ++++--------
 1 file changed, 4 insertions(+), 8 deletions(-)

diff --git a/helm-mode.el b/helm-mode.el
index f95bd7fab2..d8d0e2a285 100644
--- a/helm-mode.el
+++ b/helm-mode.el
@@ -1022,14 +1022,10 @@ dynamically otherwise use 
`helm-completing-read-default-2'."
                            1 0)
      :fc-transformer (append (list (lambda (candidates _source)
                                      (helm-completion--initial-filter
-                                      (let* ((all (copy-sequence candidates))
-                                             (lst (if (and sort-fn (> (length 
helm-pattern) 0))
-                                                     (funcall sort-fn all)
-                                                   all)))
-                                        (if (and default (string= helm-pattern 
""))
-                                            (append (list default)
-                                                    (delete default lst))
-                                          lst))
+                                      (let ((all (copy-sequence candidates)))
+                                        (if (and sort-fn (> (length 
helm-pattern) 0))
+                                            (funcall sort-fn all)
+                                          candidates))
                                       afun afix file-comp-p)))
                              '(helm-cr-default-transformer))
      :quit-when-no-cand (eq require-match t)



reply via email to

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