]> git.eshelyaron.com Git - emacs.git/commitdiff
Fix tramp-accept-process-output
authorMichael Albinus <michael.albinus@gmx.de>
Tue, 29 Aug 2023 12:16:15 +0000 (14:16 +0200)
committerMichael Albinus <michael.albinus@gmx.de>
Tue, 29 Aug 2023 12:16:15 +0000 (14:16 +0200)
* lisp/net/tramp.el (tramp-accept-process-output):
Use `with-tramp-suspended-timers' also for the other processes.

lisp/net/tramp.el

index 9d555c5621b9225726ad1ec6a517fe041e36ad77..b34d3ff66957c44d84134f394bc2f7551d56e9e8 100644 (file)
@@ -5615,7 +5615,8 @@ If the user quits via `C-g', it is propagated up to `tramp-file-name-handler'."
             (v (process-get proc 'tramp-vector)))
     (dolist (p (delq proc (process-list)))
       (when (tramp-file-name-equal-p v (process-get p 'tramp-vector))
-       (with-local-quit (accept-process-output p 0 nil t)))))
+       (with-tramp-suspended-timers
+         (with-local-quit (accept-process-output p 0 nil t))))))
 
   (with-current-buffer (process-buffer proc)
     (let ((inhibit-read-only t)