diff options
| -rw-r--r-- | cider-doc.el | 2 | ||||
| -rw-r--r-- | cider-inspector.el | 6 | ||||
| -rw-r--r-- | cider-interaction.el | 12 | ||||
| -rw-r--r-- | cider-repl.el | 4 | ||||
| -rw-r--r-- | cider-test.el | 2 |
5 files changed, 13 insertions, 13 deletions
diff --git a/cider-doc.el b/cider-doc.el index 7baa4790..b2c833e9 100644 --- a/cider-doc.el +++ b/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))) diff --git a/cider-inspector.el b/cider-inspector.el index 5dd7bcfc..d61e99b5 100644 --- a/cider-inspector.el +++ b/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) diff --git a/cider-interaction.el b/cider-interaction.el index 0abfd4ab..999dcb21 100644 --- a/cider-interaction.el +++ b/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,7 +853,7 @@ 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`." @@ -861,7 +861,7 @@ This function preserves the `other-window' meaning of 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)) '() diff --git a/cider-repl.el b/cider-repl.el index 1424a59d..779f8367 100644 --- a/cider-repl.el +++ b/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) diff --git a/cider-test.el b/cider-test.el index b5ffa170..c95fbe83 100644 --- a/cider-test.el +++ b/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) |