Suppress timers in Tramp operations

* lisp/net/tramp.el (tramp-accept-process-output):
* lisp/net/tramp-adb.el (tramp-adb-handle-start-file-process):
* lisp/net/tramp-sh.el (tramp-do-copy-or-rename-file-out-of-band)
(tramp-sh-handle-start-file-process):
* lisp/net/tramp-smb.el (tramp-smb-handle-copy-directory)
(tramp-smb-handle-file-acl, tramp-smb-handle-process-file)
(tramp-smb-handle-set-file-acl)
(tramp-smb-handle-start-file-process): Suppress timers.

* test/lisp/net/tramp-tests.el (tramp-test41-asynchronous-requests):
Use $REMOTE_PARALLEL_PROCESSES.  Flush cache prior file operations.
Add instrumentation messages.

4 files changed, 26 insertions, 8 deletions

diff --git a/lisp/net/tramp-adb.el b/lisp/net/tramp-adb.el
index d06031f1a67..c614acfa4db 100644
--- a/lisp/net/tramp-adb.el
+++ b/lisp/net/tramp-adb.el
@@ -1037,7 +1037,9 @@ PRESERVE-UID-GID and PRESERVE-EXTENDED-ATTRIBUTES are completely ignored."
             (or (null program) tramp-process-connection-type))
            (bmp (and (buffer-live-p buffer) (buffer-modified-p buffer)))
            (name1 name)
-           (i 0))
+           (i 0)
+           ;; We do not want to run timers.
+           timer-list timer-idle-list)
 
       (while (get-process name1)
         ;; NAME must be unique as process name.
diff --git a/lisp/net/tramp-sh.el b/lisp/net/tramp-sh.el
index 361e4c3e300..96a0d849072 100644
--- a/lisp/net/tramp-sh.el
+++ b/lisp/net/tramp-sh.el
@@ -2473,7 +2473,9 @@ The method used must be an out-of-band method."
               ;; The default directory must be remote.
               (let ((default-directory
                       (file-name-directory (if t1 filename newname)))
-                    (process-environment (copy-sequence process-environment)))
+                    (process-environment (copy-sequence process-environment))
+                    ;; We do not want to run timers.
+                    timer-list timer-idle-list)
                 ;; Set the transfer process properties.
                 (tramp-set-connection-property
                  v "process-name" (buffer-name (current-buffer)))
@@ -2894,7 +2896,9 @@ the result will be a local, non-Tramp, file name."
            ;; We do not want to raise an error when
            ;; `start-file-process' has been started several times in
            ;; `eshell' and friends.
-           (tramp-current-connection nil)
+           tramp-current-connection
+           ;; We do not want to run timers.
+           timer-list timer-idle-list
            p)
 
       (while (get-process name1)
diff --git a/lisp/net/tramp-smb.el b/lisp/net/tramp-smb.el
index ec689aea15f..fee14df991e 100644
--- a/lisp/net/tramp-smb.el
+++ b/lisp/net/tramp-smb.el
@@ -457,7 +457,9 @@ pass to the OPERATION."
                                (expand-file-name
                                 tramp-temp-name-prefix
                                 (tramp-compat-temporary-file-directory))))
-                   (args      (list (concat "//" host "/" share) "-E")))
+                   (args      (list (concat "//" host "/" share) "-E"))
+                   ;; We do not want to run timers.
+                   timer-list timer-idle-list)
 
               (if (not (zerop (length user)))
                   (setq args (append args (list "-U" user)))
@@ -739,7 +741,9 @@ PRESERVE-UID-GID and PRESERVE-EXTENDED-ATTRIBUTES are completely ignored."
           (let* ((share     (tramp-smb-get-share v))
                  (localname (replace-regexp-in-string
                              "\\\\" "/" (tramp-smb-get-localname v)))
-                 (args      (list (concat "//" host "/" share) "-E")))
+                 (args      (list (concat "//" host "/" share) "-E"))
+                 ;; We do not want to run timers.
+                 timer-list timer-idle-list)
 
             (if (not (zerop (length user)))
                 (setq args (append args (list "-U" user)))
@@ -1215,6 +1219,8 @@ component is used as the target of the symlink."
     (let* ((name (file-name-nondirectory program))
            (name1 name)
            (i 0)
+           ;; We do not want to run timers.
+           timer-list timer-idle-list
            input tmpinput outbuf command ret)
 
       ;; Determine input.
@@ -1391,7 +1397,9 @@ component is used as the target of the symlink."
                            "\\\\" "/" (tramp-smb-get-localname v)))
                (args      (list (concat "//" host "/" share) "-E" "-S"
                                 (replace-regexp-in-string
-                                 "\n" "," acl-string))))
+                                 "\n" "," acl-string)))
+               ;; We do not want to run timers.
+               timer-list timer-idle-list)
 
           (if (not (zerop (length user)))
               (setq args (append args (list "-U" user)))
@@ -1471,7 +1479,9 @@ component is used as the target of the symlink."
            (command (mapconcat 'identity (cons program args) " "))
            (bmp (and (buffer-live-p buffer) (buffer-modified-p buffer)))
            (name1 name)
-           (i 0))
+           (i 0)
+           ;; We do not want to run timers.
+           timer-list timer-idle-list)
       (unwind-protect
           (save-excursion
             (save-restriction
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 3129984afc6..01a3e44c73e 100644
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -3833,7 +3833,9 @@ connection buffer."
 This is needed in order to hide `last-coding-system-used', which is set
 for process communication also."
   (with-current-buffer (process-buffer proc)
-    (let (buffer-read-only last-coding-system-used)
+    (let (buffer-read-only last-coding-system-used
+          ;; We do not want to run timers.
+          timer-list timer-idle-list)
       ;; Under Windows XP, `accept-process-output' doesn't return
       ;; sometimes.  So we add an additional timeout.  JUST-THIS-ONE
       ;; is set due to Bug#12145.  It is an integer, in order to avoid