From 9eaec6859df69f0baac57f0801bfbf195ee88dc5 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Mon, 20 Jun 2016 15:05:52 +0200 Subject: [PATCH] ; Simplify in filenotify-tests.el --- test/lisp/filenotify-tests.el | 39 +++++++++++++++++------------------ 1 file changed, 19 insertions(+), 20 deletions(-) diff --git a/test/lisp/filenotify-tests.el b/test/lisp/filenotify-tests.el index 30e7450ed0..0e6e58e7b8 100644 --- a/test/lisp/filenotify-tests.el +++ b/test/lisp/filenotify-tests.el @@ -1040,26 +1040,25 @@ the file watch." ;; Run the test. (file-notify--test-with-events ;; There could be one or two `changed' events. - (append - (list - (append - '(:random) - ;; Directory monitor and file monitor. - (make-list (/ n 2) 'changed) - (make-list (/ n 2) 'changed) - ;; Just the directory monitor. - (make-list (/ n 2) 'created) - (make-list (/ n 2) 'changed)) - (append - '(:random) - ;; Directory monitor and file monitor. - (make-list (/ n 2) 'changed) - (make-list (/ n 2) 'changed) - (make-list (/ n 2) 'changed) - (make-list (/ n 2) 'changed) - ;; Just the directory monitor. - (make-list (/ n 2) 'created) - (make-list (/ n 2) 'changed)))) + (list + (append + '(:random) + ;; Directory monitor and file monitor. + (make-list (/ n 2) 'changed) + (make-list (/ n 2) 'changed) + ;; Just the directory monitor. + (make-list (/ n 2) 'created) + (make-list (/ n 2) 'changed)) + (append + '(:random) + ;; Directory monitor and file monitor. + (make-list (/ n 2) 'changed) + (make-list (/ n 2) 'changed) + (make-list (/ n 2) 'changed) + (make-list (/ n 2) 'changed) + ;; Just the directory monitor. + (make-list (/ n 2) 'created) + (make-list (/ n 2) 'changed))) (dotimes (i n) (read-event nil nil file-notify--test-read-event-timeout) (if (zerop (mod i 2)) -- 2.39.2