From 06743df33a87a08ab2e69e797659e7ba9beb2dbb Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Fri, 31 Mar 2023 09:45:23 +0200 Subject: [PATCH] * lisp/net/tramp.el (tramp-accept-process-output): Use `with-local-quit'. --- lisp/net/tramp.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- 2.39.5