]> git.eshelyaron.com Git - emacs.git/commitdiff
Silence byte-compiler slightly in tests
authorStefan Kangas <stefan@marxist.se>
Thu, 27 Jan 2022 03:23:18 +0000 (04:23 +0100)
committerStefan Kangas <stefan@marxist.se>
Thu, 27 Jan 2022 03:25:08 +0000 (04:25 +0100)
* 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
test/src/comp-resources/comp-test-funcs.el

index f1c0dafb68da03ebba3e8389a6a93ea7b4e47a7d..65147ee01564e7db68e9a9b563493b5a126b53b1 100644 (file)
@@ -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)
index b3fd2bcd175af955b66c2b888f0346eae34fb7a0..0a60f4d6cc4ef5654685209ff719280b7d5be847 100644 (file)
   ;; Bnumberp
   (numberp x))
 
-(defun comp-tests-discardn-f (x)
+(defun comp-tests-discardn-f (_x)
   ;; BdiscardN
   (1+ (let ((a 1)
             (_b)
   ;; 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 "")
 (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
           (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