Suppress timers in Tramp

* lisp/net/tramp.el (tramp-file-name-handler): Don't trigger timers.

* test/lisp/net/tramp-tests.el
(tramp-test36-asynchronous-requests): Trigger timers.
(tramp-test37-recursive-load, tramp-test38-remote-load-path):
Set `default-directory' to a trustworthy value.

1 files changed, 1 insertions, 3 deletions

diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 9c327c410a7..945f81188c8 100644
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -2128,9 +2128,7 @@ Falls back to normal file name handler if no Tramp file name handler exists."
                                   (unwind-protect
                                       (let ((tramp-locker t))
                                         (apply foreign operation args))
-                                    ;; Give timers a chance.
-                                    (unless (setq tramp-locked tl)
-                                      (sit-for 0.001 'nodisp)))))))
+                                    (setq tramp-locked tl))))))
                       (cond
                        ((eq result 'non-essential)
                         (tramp-message