]> code.delx.au - gnu-emacs/commitdiff
; Pacify byte-compiler in filenotify-tests.el
authorMichael Albinus <michael.albinus@gmx.de>
Sat, 28 Nov 2015 13:20:28 +0000 (14:20 +0100)
committerMichael Albinus <michael.albinus@gmx.de>
Sat, 28 Nov 2015 13:20:28 +0000 (14:20 +0100)
test/lisp/filenotify-tests.el

index c0991ae460f929f31db82ba29f93d4c651878f87..d6322c22c0ecd7ef166d8970b135a4088f4f8b53 100644 (file)
@@ -296,7 +296,7 @@ longer than timeout seconds for the events to be delivered."
     `(let* ((,outer file-notify--test-events)
             (events (if (consp (car ,events)) ,events (list ,events)))
             (max-length (apply 'max (mapcar 'length events)))
-           create-lockfiles result)
+            create-lockfiles result)
        ;; Flush pending events.
        (file-notify--wait-for-events
         (file-notify--test-timeout)
@@ -821,7 +821,7 @@ longer than timeout seconds for the events to be delivered."
             ;; w32notify fires both `deleted' and `renamed' events.
             ((string-equal (file-notify--test-library) "w32notify")
              (let (r)
-               (dotimes (i n r)
+               (dotimes (_i n r)
                  (setq r (append '(deleted renamed) r)))))
             (t (make-list n 'renamed)))
           (let ((source-file-list source-file-list)