[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 2b150f943b: Silence byte-compiler slightly in tests
From: |
Stefan Kangas |
Subject: |
master 2b150f943b: Silence byte-compiler slightly in tests |
Date: |
Wed, 26 Jan 2022 22:27:30 -0500 (EST) |
branch: master
commit 2b150f943bc875cf9ce5ac614472e27db697fff9
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>
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 f1c0dafb68..65147ee015 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 b3fd2bcd17..0a60f4d6cc 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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 2b150f943b: Silence byte-compiler slightly in tests,
Stefan Kangas <=