Use _ where appropriate

Author: cichli

cider-doc.el

@@ -356,7 +356,7 @@ Tables are marked to be ignored by line wrap."
         (newline)
         (insert-text-button "[source]"
                             'follow-link t
-                            'action (lambda (x)
+                            'action (lambda (_x)
                                       (cider-docview-source)))
         (let ((beg (point-min))
               (end (point-max)))

cider-inspector.el

@@ -70,14 +70,14 @@
   (cider-inspect-expr expression (cider-current-ns)))
 
 ;; Operations
-(defun cider-inspector--value-handler (buffer value)
+(defun cider-inspector--value-handler (_buffer value)
   (cider-make-popup-buffer cider-inspector-buffer 'cider-inspector-mode)
   (cider-irender cider-inspector-buffer value))
 
-(defun cider-inspector--out-handler (buffer value)
+(defun cider-inspector--out-handler (_buffer value)
   (cider-emit-interactive-eval-output value))
 
-(defun cider-inspector--err-handler (buffer err)
+(defun cider-inspector--err-handler (_buffer err)
   (cider-emit-interactive-eval-err-output err))
 
 (defun cider-inspector--done-handler (buffer)

cider-interaction.el

@@ -842,7 +842,7 @@ value is thing at point."
     (pcase narg
       (-1 t) ; -
       (16 t) ; empty empty
-      (narg nil))))
+      (_ nil))))
 
 (defun cider--invert-prefix-arg (arg)
   "Invert the effect of prefix value ARG on `cider-prompt-for-symbol'.
@@ -853,15 +853,15 @@ This function preserves the `other-window' meaning of ARG."
       (16 -1)   ; empty empty -> -
       (-1 16)   ; - -> empty empty
       (4 nil)   ; empty -> no-prefix
-      (nil 4)))) ; no-prefix -> empty
+      (_ 4)))) ; no-prefix -> empty
 
 (defun cider--prefix-invert-prompt-p (arg)
   "Test prefix value ARG for its effect on `cider-prompt-for-symbol`."
   (let ((narg (prefix-numeric-value arg)))
     (pcase narg
       (16 t) ; empty empty
       (4 t)  ; empty
-      (narg nil))))
+      (_ nil))))
 
 (defun cider--prompt-for-symbol-p (&optional prefix)
   "Check if cider should prompt for symbol.
@@ -1092,7 +1092,7 @@ The handler simply inserts the result value in BUFFER."
                                      (insert value)))
                                  (lambda (_buffer out)
                                    (cider-repl-emit-interactive-output out))
-                                 (lambda (buffer err)
+                                 (lambda (_buffer err)
                                    (cider-handle-compilation-errors err eval-buffer))
                                  '())))
 
@@ -1138,7 +1138,7 @@ This is controlled via `cider-interactive-eval-output-destination'."
                                    (cider--display-interactive-eval-result value))
                                  (lambda (_buffer out)
                                    (cider-emit-interactive-eval-output out))
-                                 (lambda (buffer err)
+                                 (lambda (_buffer err)
                                    (cider-emit-interactive-eval-err-output err)
                                    (cider-handle-compilation-errors err eval-buffer))
                                  '())))
@@ -1153,7 +1153,7 @@ This is controlled via `cider-interactive-eval-output-destination'."
                                      (run-hooks 'cider-file-loaded-hook)))
                                  (lambda (_buffer value)
                                    (cider-emit-interactive-eval-output value))
-                                 (lambda (buffer err)
+                                 (lambda (_buffer err)
                                    (cider-emit-interactive-eval-err-output err)
                                    (cider-handle-compilation-errors err eval-buffer))
                                  '()

cider-repl.el

@@ -194,7 +194,7 @@ ENDPOINT is a plist as returned by `nrepl-connect'."
   (nrepl-request:eval
    "(when (clojure.core/resolve 'clojure.main/repl-requires)
       (clojure.core/map clojure.core/require clojure.main/repl-requires))"
-   (lambda (response) nil)))
+   (lambda (_response) nil)))
 
 (defun cider-repl-set-initial-ns (buffer)
   "Set the REPL BUFFER's initial namespace (by altering `cider-buffer-ns').
@@ -691,7 +691,7 @@ text property `cider-old-input'."
 (defun cider-repl-switch-ns-handler (buffer)
   "Make a nREPL evaluation handler for the REPL BUFFER's ns switching."
   (nrepl-make-response-handler buffer
-                               (lambda (buffer value))
+                               (lambda (_buffer _value))
                                (lambda (buffer out)
                                  (cider-repl-emit-output buffer out))
                                (lambda (buffer err)

cider-test.el

@@ -307,7 +307,7 @@ With the actual value, the outermost '(not ...)' s-expression is removed."
         (unless (zerop (+ fail error))
           (cider-insert "Results" 'bold t "\n")
           (nrepl-dict-map
-           (lambda (var tests)
+           (lambda (_var tests)
              (dolist (test tests)
                (nrepl-dbind-response test (type)
                  (unless (equal "pass" type)