; Simplify in filenotify-tests.el

diff --git a/test/lisp/filenotify-tests.el b/test/lisp/filenotify-tests.el
index 30e7450ed054717638eea498ad8c8e334543268c..0e6e58e7b80d7c038258778da5f47df34dd39e59 100644 (file)
--- 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))