diff options
| author | Stefan Kangas <stefan@marxist.se> | 2022-01-27 04:23:18 +0100 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2022-01-27 04:25:08 +0100 |
| commit | 2b150f943bc875cf9ce5ac614472e27db697fff9 (patch) | |
| tree | 894bd89f0465cfefbed30dac657a3710dbe450eb | |
| parent | 5b931eb8ff088891c73a9c952f19e20ccd7e2dae (diff) | |
| download | emacs-2b150f943bc875cf9ce5ac614472e27db697fff9.tar.gz | |
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.
| -rw-r--r-- | test/src/comp-resources/comp-test-45603.el | 5 | ||||
| -rw-r--r-- | 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 |