diff options
| author | Michael Albinus | 2015-11-28 14:20:28 +0100 |
|---|---|---|
| committer | Michael Albinus | 2015-11-28 14:20:28 +0100 |
| commit | 9a2363ec04c24a6959902da9b8eff2f1559ab3e0 (patch) | |
| tree | 4d2d183972b19e940acc0458804a84de9d09cf81 | |
| parent | 9f554a1a70c0470af7020537a0da6bf43e74ee79 (diff) | |
| download | emacs-9a2363ec04c24a6959902da9b8eff2f1559ab3e0.tar.gz emacs-9a2363ec04c24a6959902da9b8eff2f1559ab3e0.zip | |
; 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." | |||
| 296 | `(let* ((,outer file-notify--test-events) | 296 | `(let* ((,outer file-notify--test-events) |
| 297 | (events (if (consp (car ,events)) ,events (list ,events))) | 297 | (events (if (consp (car ,events)) ,events (list ,events))) |
| 298 | (max-length (apply 'max (mapcar 'length events))) | 298 | (max-length (apply 'max (mapcar 'length events))) |
| 299 | create-lockfiles result) | 299 | create-lockfiles result) |
| 300 | ;; Flush pending events. | 300 | ;; Flush pending events. |
| 301 | (file-notify--wait-for-events | 301 | (file-notify--wait-for-events |
| 302 | (file-notify--test-timeout) | 302 | (file-notify--test-timeout) |
| @@ -821,7 +821,7 @@ longer than timeout seconds for the events to be delivered." | |||
| 821 | ;; w32notify fires both `deleted' and `renamed' events. | 821 | ;; w32notify fires both `deleted' and `renamed' events. |
| 822 | ((string-equal (file-notify--test-library) "w32notify") | 822 | ((string-equal (file-notify--test-library) "w32notify") |
| 823 | (let (r) | 823 | (let (r) |
| 824 | (dotimes (i n r) | 824 | (dotimes (_i n r) |
| 825 | (setq r (append '(deleted renamed) r))))) | 825 | (setq r (append '(deleted renamed) r))))) |
| 826 | (t (make-list n 'renamed))) | 826 | (t (make-list n 'renamed))) |
| 827 | (let ((source-file-list source-file-list) | 827 | (let ((source-file-list source-file-list) |