master 2ee5c80 2/2: Revert change to use seq-random-elt in Tramp test

[Stefan Kangas]

branch: master
commit 2ee5c80ff5454320a0bbe8c2d5b32eb2f0b46bdb
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>

    Revert change to use seq-random-elt in Tramp test
    
    * test/lisp/net/tramp-tests.el (tramp-test44-asynchronous-requests):
    Revert change to use seq-random-elt, as Tramp needs to be compatible
    with Emacs 25, and the function was only added in 26.1.
---
 test/lisp/net/tramp-tests.el | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el
index f105c6f..358f87d 100644
--- a/test/lisp/net/tramp-tests.el
+++ b/test/lisp/net/tramp-tests.el
@@ -6787,7 +6787,10 @@ process sentinels.  They shall not disturb each other."
                     (let ((time (float-time))
                           (default-directory tmp-name)
                           (file
-                           (buffer-name (seq-random-elt buffers)))
+                           (buffer-name
+                            ;; Use `seq-random-elt' once <26.1 support
+                            ;; is dropped.
+                            (nth (random (length buffers)) buffers)))
                          ;; A remote operation in a timer could
                          ;; confuse Tramp heavily.  So we ignore this
                          ;; error here.
@@ -6852,7 +6855,8 @@ process sentinels.  They shall not disturb each other."
             ;; the buffers.  Mix with regular operation.
             (let ((buffers (copy-sequence buffers)))
               (while buffers
-                (let* ((buf (seq-random-elt buffers))
+                ;; Use `seq-random-elt' once <26.1 support is dropped.
+                (let* ((buf (nth (random (length buffers)) buffers))
                        (proc (get-buffer-process buf))
                        (file (process-get proc 'foo))
                        (count (process-get proc 'bar)))