Fix unused args source in some filtered candidates functions.

16 files changed, 28 insertions, 28 deletions

diff --git a/helm-adaptative.el b/helm-adaptative.el
index 73141a6a..1fb47d06 100644
--- a/helm-adaptative.el
+++ b/helm-adaptative.el
@@ -165,7 +165,7 @@ Returns nil if `helm-adaptive-history-file' doesn't exist."
     (write-region (point-min) (point-max) helm-adaptive-history-file nil
                   (unless arg 'quiet))))
 
-(defun helm-adaptive-sort (candidates source)
+(defun helm-adaptive-sort (candidates _source)
   "Sort the CANDIDATES for SOURCE by usage frequency.
 This is a filtered candidate transformer you can use with the
 `filtered-candidate-transformer' attribute."
diff --git a/helm-bbdb.el b/helm-bbdb.el
index ca8b8f4b..e1edd02a 100644
--- a/helm-bbdb.el
+++ b/helm-bbdb.el
@@ -132,7 +132,7 @@ All other actions are removed."
     (candidates . helm-bbdb-candidates)
     (action . (("Send a mail" . helm-bbdb-compose-mail)
                ("View person's data" . helm-bbdb-view-person-action)))
-    (filtered-candidate-transformer . (lambda (candidates source)
+    (filtered-candidate-transformer . (lambda (candidates _source)
                                         (setq helm-bbdb-name helm-pattern)
                                         (if (not candidates)
                                             (list "*Add to contacts*")
diff --git a/helm-bookmark.el b/helm-bookmark.el
index c8c9a83e..ab3e3d27 100644
--- a/helm-bookmark.el
+++ b/helm-bookmark.el
@@ -96,7 +96,7 @@
     (type . bookmark))
   "See (info \"(emacs)Bookmarks\").")
 
-(defun helm-bookmark-transformer (candidates source)
+(defun helm-bookmark-transformer (candidates _source)
   (loop for i in candidates
         for loc = (bookmark-location i)
         for len =  (string-width i)
diff --git a/helm-buffers.el b/helm-buffers.el
index 0d2b14e5..1f2a14cc 100644
--- a/helm-buffers.el
+++ b/helm-buffers.el
@@ -309,7 +309,7 @@ Should be called after others transformers i.e (boring buffers)."
     (setq helm-buffer-details-flag (not helm-buffer-details-flag))
     (helm-force-update (car (split-string (helm-get-selection nil t))))))
 
-(defun helm-buffers-sort-transformer (candidates source)
+(defun helm-buffers-sort-transformer (candidates _source)
   (if (string= helm-pattern "")
       candidates
       (sort candidates
diff --git a/helm-elisp.el b/helm-elisp.el
index c6b4c763..542b8259 100644
--- a/helm-elisp.el
+++ b/helm-elisp.el
@@ -234,7 +234,7 @@ Return a cons \(beg . end\)."
        (intern candidate))
       'face 'helm-lisp-completion-info))))
 
-(defun helm-lisp-completion-transformer (candidates source)
+(defun helm-lisp-completion-transformer (candidates _source)
   "Helm candidates transformer for lisp completion."
   (declare (special lgst-len))
   (loop for c in candidates
@@ -365,7 +365,7 @@ First call indent, second complete symbol, third complete fname."
     (init . (lambda ()
               (helm-apropos-init 'facep ,default)))
     (candidates-in-buffer)
-    (filtered-candidate-transformer . (lambda (candidates source)
+    (filtered-candidate-transformer . (lambda (candidates _source)
                                         (loop for c in candidates
                                               collect (propertize c 'face (intern c)))))
     (action . (lambda (candidate)
diff --git a/helm-emms.el b/helm-emms.el
index abfc83bd..f367ac56 100644
--- a/helm-emms.el
+++ b/helm-emms.el
@@ -118,7 +118,7 @@
     (filtered-candidate-transformer . helm-adaptive-sort)))
 
 (defvar helm-emms-current-playlist nil)
-(defun helm-emms-files-modifier (candidates source)
+(defun helm-emms-files-modifier (candidates _source)
   (loop for i in candidates
         if (member (cdr i) helm-emms-current-playlist)
         collect (cons (propertize (car i)
diff --git a/helm-eval.el b/helm-eval.el
index 6fad4107..d5dd40a0 100644
--- a/helm-eval.el
+++ b/helm-eval.el
@@ -69,7 +69,7 @@ Should take one arg: the string to display."
     (dummy)
     (multiline)
     (mode-line . "C-RET: nl-and-indent, tab: reindent, C-tab:complete, C-p/n: next/prec-line.")
-    (filtered-candidate-transformer . (lambda (candidates source)
+    (filtered-candidate-transformer . (lambda (candidates _source)
                                         (list
                                          (condition-case nil
                                              (with-helm-current-buffer
@@ -132,7 +132,7 @@ Should take one arg: the string to display."
 (defvar helm-source-calculation-result
   '((name . "Calculation Result")
     (dummy)
-    (filtered-candidate-transformer . (lambda (candidates source)
+    (filtered-candidate-transformer . (lambda (candidates _source)
                                         (list
                                          (condition-case nil
                                              (calc-eval helm-pattern)
diff --git a/helm-files.el b/helm-files.el
index 992ca3a8..db271250 100644
--- a/helm-files.el
+++ b/helm-files.el
@@ -390,7 +390,7 @@ Don't set it directly, use instead `helm-ff-auto-update-initial-value'.")
                     helm-ff-auto-update-initial-value)
               (set (make-local-variable 'helm-in-file-completion-p) t)))
     (candidates . helm-find-files-get-candidates)
-    (filtered-candidate-transformer . ((lambda (candidates source)
+    (filtered-candidate-transformer . ((lambda (candidates _source)
                                          (if helm-ff-skip-boring-files
                                              (helm-skip-boring-files candidates)
                                              candidates))
@@ -1717,7 +1717,7 @@ is non--nil."
           files)
       (helm-ff-highlight-files files)))
 
-(defun helm-ff-sort-candidates (candidates source)
+(defun helm-ff-sort-candidates (candidates _source)
   "Sort function for `helm-source-find-files'.
 Return candidates prefixed with basename of `helm-input' first."
   (if (or (file-directory-p helm-input)
@@ -2414,7 +2414,7 @@ Else return ACTIONS unmodified."
                     (helm-set-pattern
                      (expand-file-name candidate))))))))
 
-(defun helm-file-name-history-transformer (candidates source)
+(defun helm-file-name-history-transformer (candidates _source)
   (loop for c in candidates collect
         (cond ((file-remote-p c)
                (cons (propertize c 'face 'helm-history-remote) c))
@@ -2441,7 +2441,7 @@ Else return ACTIONS unmodified."
               (recentf-mode 1)))
     (candidates . recentf-list)
     (match . helm-files-match-only-basename)
-    (filtered-candidate-transformer . (lambda (candidates source)
+    (filtered-candidate-transformer . (lambda (candidates _source)
                                         (loop for i in candidates
                                               if helm-ff-transformer-show-only-basename
                                               collect (cons (helm-basename i) i)
@@ -2569,7 +2569,7 @@ Colorize only symlinks, directories and files."
          (start-process "tracker-search-process" nil
                         "tracker-search"
                         helm-pattern)))
-    (filtered-candidate-transformer . (lambda (candidates source)
+    (filtered-candidate-transformer . (lambda (candidates _source)
                                         (loop for cand in (cdr candidates)
                                               collect (ansi-color-apply cand))))
     (action . ,(cdr (helm-get-attribute-from-type 'action 'file)))
@@ -2607,7 +2607,7 @@ utility mdfind.")
     (header-name . (lambda (name)
                      (concat name " in [" helm-default-directory "]")))
     (candidates-process . helm-find-shell-command-fn)
-    (filtered-candidate-transformer . ((lambda (candidates source)
+    (filtered-candidate-transformer . ((lambda (candidates _source)
                                          (if helm-findutils-skip-boring-files
                                              (helm-skip-boring-files candidates)
                                              candidates))
@@ -2620,7 +2620,7 @@ utility mdfind.")
     (requires-pattern . 3)
     (delayed)))
 
-(defun helm-findutils-transformer (candidates source)
+(defun helm-findutils-transformer (candidates _source)
   (loop for i in candidates
         for abs = (expand-file-name i helm-default-directory)
         for disp = (if (and helm-ff-transformer-show-only-basename
diff --git a/helm-grep.el b/helm-grep.el
index f68d4e75..31cda29f 100644
--- a/helm-grep.el
+++ b/helm-grep.el
@@ -685,7 +685,7 @@ Special commands:
                                 " [" (match-string 3) "]")
                         (concat "no" (match-string 2))))))
 
-(defun helm-grep-ack-types-transformer (candidates source)
+(defun helm-grep-ack-types-transformer (candidates _source)
   (loop for i in candidates
         if (stringp i)
         collect (rassoc i helm-grep-ack-types-cache)
diff --git a/helm-man.el b/helm-man.el
index 4ca476ff..cf075076 100644
--- a/helm-man.el
+++ b/helm-man.el
@@ -72,7 +72,7 @@ source.")
               (helm-init-candidates-in-buffer 'global helm-man-pages)))
     (candidates-in-buffer)
     (filtered-candidate-transformer
-     . (lambda (candidates source)
+     . (lambda (candidates _source)
          (sort candidates #'helm-generic-sort-fn)))
     (action  . (("Display Man page" . helm-man-default-action)))
     ;; Woman does not work OS X
diff --git a/helm-mode.el b/helm-mode.el
index f6867eb8..c58a6b97 100644
--- a/helm-mode.el
+++ b/helm-mode.el
@@ -170,7 +170,7 @@ If COLLECTION is an `obarray', a TEST should be needed. See `obarray'."
                (t (all-completions "" collection test)))))
     (if sort-fn (sort cands sort-fn) cands)))
 
-(defun helm-cr-default-transformer (candidates source)
+(defun helm-cr-default-transformer (candidates _source)
   "Default filter candidate function for `helm-comp-read'."
   (loop with lst for c in candidates
         for cand = (if (stringp c) (replace-regexp-in-string "\\s\\" "" c) c)
diff --git a/helm-regexp.el b/helm-regexp.el
index 9343ac12..e6c12b37 100644
--- a/helm-regexp.el
+++ b/helm-regexp.el
@@ -304,7 +304,7 @@ Same as `helm-m-occur-goto-line' but go in new frame."
     (delayed . ,helm-m-occur-idle-delay))
   "Helm source for multi occur.")
 
-(defun helm-m-occur-transformer (candidates source)
+(defun helm-m-occur-transformer (candidates _source)
   "Transformer function for `helm-source-moccur'."
   (require 'helm-grep)
   (loop for i in candidates
diff --git a/helm-ring.el b/helm-ring.el
index 52fe87b1..d23a1402 100644
--- a/helm-ring.el
+++ b/helm-ring.el
@@ -85,7 +85,7 @@ If nil or zero (disabled), don't truncate candidate, show all."
                    (string-match "\\`[\n[:blank:]]+\\'" kill))
         collect kill))
 
-(defun helm-kill-ring-transformer (candidates source)
+(defun helm-kill-ring-transformer (candidates _source)
   "Display only the `helm-kill-ring-max-lines-number' lines of candidate."
   (loop for i in candidates
         for nlines = (with-temp-buffer (insert i) (count-lines (point-min) (point-max)))
diff --git a/helm-sys.el b/helm-sys.el
index 26f28734..679ebf07 100644
--- a/helm-sys.el
+++ b/helm-sys.el
@@ -61,7 +61,7 @@ A format string where %s will be replaced with `frame-width'."
     (filtered-candidate-transformer . helm-top-sort-transformer)
     (action-transformer . helm-top-action-transformer)))
 
-(defun helm-top-transformer (candidates source)
+(defun helm-top-transformer (candidates _source)
   "Transformer for `helm-top'.
 Return empty string for non--valid candidates."
   (loop for disp in candidates collect
diff --git a/helm-utils.el b/helm-utils.el
index 35960f0a..f11fa352 100644
--- a/helm-utils.el
+++ b/helm-utils.el
@@ -774,7 +774,7 @@ directory, open this directory."
   (or (require feature nil t)
       (error "Need %s to use `%s'." feature function)))
 
-(defun helm-filtered-candidate-transformer-file-line (candidates source)
+(defun helm-filtered-candidate-transformer-file-line (candidates _source)
   (delq nil (mapcar 'helm-filtered-candidate-transformer-file-line-1
                     candidates)))
 
diff --git a/helm.el b/helm.el
index 1cd470c1..d7667828 100644
--- a/helm.el
+++ b/helm.el
@@ -1379,10 +1379,10 @@ e.g
 filtered-candidate-transformer:
 \(helm-compose '((1 2 3 4 5 6 7)
                 '((name . \"An helm source\") (candidates . (a b c))))
-              '((lambda (candidates source)
+              '((lambda (candidates _source)
                   (loop for i in candidates
                         when (oddp i) collect i))
-                (lambda (candidates source)
+                (lambda (candidates _source)
                   (loop for i in candidates collect (1+ i)))))
 =>(2 4 6 8)
 
@@ -2291,13 +2291,13 @@ ARGS is (cand1 cand2 ...) or ((disp1 . real1) (disp2 . real2) ...)
         else
         collect (funcall function arg)))
 
-(defun helm-process-candidate-transformer (candidates source)
+(defun helm-process-candidate-transformer (candidates _source)
   "Execute `candidate-transformer' function(s) on CANDIDATES in SOURCE."
   (helm-aif (assoc-default 'candidate-transformer source)
       (helm-composed-funcall-with-source source it candidates)
     candidates))
 
-(defun helm-process-filtered-candidate-transformer (candidates source)
+(defun helm-process-filtered-candidate-transformer (candidates _source)
   "Execute `filtered-candidate-transformer' function(s) on CANDIDATES in SOURCE."
   (helm-aif (assoc-default 'filtered-candidate-transformer source)
       (helm-composed-funcall-with-source source it candidates source)
@@ -2313,7 +2313,7 @@ functions if some, otherwise return CANDIDATES."
       (helm-process-filtered-candidate-transformer candidates source)
       candidates))
 
-(defun helm-process-real-to-display (candidates source)
+(defun helm-process-real-to-display (candidates _source)
   "Execute real-to-display function on all CANDIDATES of SOURCE."
   (helm-aif (assoc-default 'real-to-display source)
       (setq candidates (helm-funcall-with-source