aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMichael Albinus2015-11-28 14:20:28 +0100
committerMichael Albinus2015-11-28 14:20:28 +0100
commit9a2363ec04c24a6959902da9b8eff2f1559ab3e0 (patch)
tree4d2d183972b19e940acc0458804a84de9d09cf81
parent9f554a1a70c0470af7020537a0da6bf43e74ee79 (diff)
downloademacs-9a2363ec04c24a6959902da9b8eff2f1559ab3e0.tar.gz
emacs-9a2363ec04c24a6959902da9b8eff2f1559ab3e0.zip
; Pacify byte-compiler in filenotify-tests.el
-rw-r--r--test/lisp/filenotify-tests.el4
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)