[nongnu] elpa/helm 71019c80ff 6/7: Remove now unused lex-args in helm-cr-default-transformer

[ELPA Syncer]

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

    Remove now unused lex-args in helm-cr-default-transformer
---
 helm-mode.el | 32 +++++++++++++++-----------------
 1 file changed, 15 insertions(+), 17 deletions(-)

diff --git a/helm-mode.el b/helm-mode.el
index c47446b814..04d0ed7edc 100644
--- a/helm-mode.el
+++ b/helm-mode.el
@@ -563,24 +563,22 @@ If COLLECTION is an `obarray', a TEST should be needed. 
See `obarray'."
       (member (downcase pattern) candidates)
       (member (upcase pattern) candidates)))
 
-(defun helm-cr-default-transformer (candidates source)
+(defun helm-cr-default-transformer (candidates _source)
   "Default filter candidate function for `helm-comp-read'."
-  (let ((must-match (helm-get-attr 'must-match source))
-        (raw-candidate (helm-get-attr 'raw-candidate source)))
-    ;; Annotation and affixation are already handled in completion-in-region 
and
-    ;; in helm-completing-read-default-2 when emacs style is in use.
-    ;; For helm-completing-read-default-1 we handle them in an extra FCT; This
-    ;; allows extracting annotation and affixation from metadata which is not
-    ;; accessible from here.
-    (cl-loop for c in candidates
-             for cand = (let ((elm (if (stringp c)
-                                       (replace-regexp-in-string "\\s\\" "" c)
-                                     c)))
-                          (cond ((and (stringp elm)
-                                      (string-match "\n" elm))
-                                 (cons (replace-regexp-in-string "\n" "->" 
elm) c))
-                                (t c)))
-             collect cand)))
+  ;; Annotation and affixation are already handled in completion-in-region and
+  ;; in helm-completing-read-default-2 when emacs style is in use.
+  ;; For helm-completing-read-default-1 we handle them in an extra FCT; This
+  ;; allows extracting annotation and affixation from metadata which is not
+  ;; accessible from here.
+  (cl-loop for c in candidates
+           for cand = (let ((elm (if (stringp c)
+                                     (replace-regexp-in-string "\\s\\" "" c)
+                                   c)))
+                        (cond ((and (stringp elm)
+                                    (string-match "\n" elm))
+                               (cons (replace-regexp-in-string "\n" "->" elm) 
c))
+                              (t c)))
+           collect cand))
 
 (defun helm-comp-read--move-to-first-real-candidate ()
   (helm-aif (helm-get-selection nil 'withprop)