From 2b150f943bc875cf9ce5ac614472e27db697fff9 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Thu, 27 Jan 2022 04:23:18 +0100 Subject: [PATCH] Silence byte-compiler slightly in tests * test/src/comp-resources/comp-test-45603.el (comp-test-45603--call-marked): * test/src/comp-resources/comp-test-funcs.el (comp-tests-discardn-f, comp-test-42360-f, comp-test-46824-1-f) (comp-test-silly-frame2): Silence byte-compiler. --- test/src/comp-resources/comp-test-45603.el | 5 +++-- test/src/comp-resources/comp-test-funcs.el | 10 +++++----- 2 files changed, 8 insertions(+), 7 deletions(-) diff --git a/test/src/comp-resources/comp-test-45603.el b/test/src/comp-resources/comp-test-45603.el index f1c0dafb68d..65147ee0156 100644 --- a/test/src/comp-resources/comp-test-45603.el +++ b/test/src/comp-resources/comp-test-45603.el @@ -7,7 +7,7 @@ (defvar comp-test-45603-directory) (defvar comp-test-45603-marked-candidates) -(defun comp-test-45603--call-marked (action) +(defun comp-test-45603--call-marked (_action) (let* ((prefix-len (length comp-test-45603-mark-prefix)) (marked-candidates (mapcar @@ -17,7 +17,8 @@ (expand-file-name cand comp-test-45603-directory) cand))) comp-test-45603-marked-candidates)) - (multi-action (comp-test-45603--get-multi-action comp-test-45603-last))))) + (_multi-action (comp-test-45603--get-multi-action comp-test-45603-last))) + marked-candidates)) (defalias 'comp-test-45603--file-local-name (if (fboundp 'file-local-name) diff --git a/test/src/comp-resources/comp-test-funcs.el b/test/src/comp-resources/comp-test-funcs.el index b3fd2bcd175..0a60f4d6cc4 100644 --- a/test/src/comp-resources/comp-test-funcs.el +++ b/test/src/comp-resources/comp-test-funcs.el @@ -189,7 +189,7 @@ ;; Bnumberp (numberp x)) -(defun comp-tests-discardn-f (x) +(defun comp-tests-discardn-f (_x) ;; BdiscardN (1+ (let ((a 1) (_b) @@ -297,8 +297,8 @@ ;; potentially use all registers and that is modifying local ;; variables inside condition-case. (let ((str-len (length str)) - (str-width 14) - (ellipsis-width 3) + (_str-width 14) + (_ellipsis-width 3) (idx 0) (column 0) (head-padding "") (tail-padding "") @@ -489,7 +489,7 @@ (cl-defun comp-test-46824-1-f () (let ((next-repos '(1))) (while t - (let ((recipe (car next-repos))) + (let ((_recipe (car next-repos))) (cl-block loop (while t (let ((err @@ -640,7 +640,7 @@ (2 2)) 3)))) -(defun comp-test-silly-frame2 (token) +(defun comp-test-silly-frame2 (_token) ;; Check robustness against dead code. (while c (cl-case c -- 2.39.5