From: Michael Albinus <michael.albinus@gmx.de>
Date: Fri, 31 Mar 2023 07:45:23 +0000 (+0200)
Subject: * lisp/net/tramp.el (tramp-accept-process-output): Use `with-local-quit'.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=06743df33a87a08ab2e69e797659e7ba9beb2dbb;p=emacs.git

* lisp/net/tramp.el (tramp-accept-process-output): Use `with-local-quit'.
---

diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index defdb2bd546..b1bd93410bc 100644
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -5815,7 +5815,7 @@ 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))
-	(accept-process-output p 0 nil t))))
+	(with-local-quit (accept-process-output p 0 nil t)))))
 
   (with-current-buffer (process-buffer proc)
     (let ((inhibit-read-only t)