diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2015-11-28 14:20:28 +0100 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2015-11-28 14:20:28 +0100 |
| commit | 9a2363ec04c24a6959902da9b8eff2f1559ab3e0 (patch) | |
| tree | 4d2d183972b19e940acc0458804a84de9d09cf81 | |
| parent | 9f554a1a70c0470af7020537a0da6bf43e74ee79 (diff) | |
| download | emacs-9a2363ec04c24a6959902da9b8eff2f1559ab3e0.tar.gz | |
; Pacify byte-compiler in filenotify-tests.el
| -rw-r--r-- | test/lisp/filenotify-tests.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/test/lisp/filenotify-tests.el b/test/lisp/filenotify-tests.el index c0991ae460f..d6322c22c0e 100644 --- a/test/lisp/filenotify-tests.el +++ b/test/lisp/filenotify-tests.el @@ -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) |