[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 06743df33a8: * lisp/net/tramp.el (tramp-accept-process-output): U
From: |
Michael Albinus |
Subject: |
master 06743df33a8: * lisp/net/tramp.el (tramp-accept-process-output): Use `with-local-quit'. |
Date: |
Fri, 31 Mar 2023 03:45:35 -0400 (EDT) |
branch: master
commit 06743df33a87a08ab2e69e797659e7ba9beb2dbb
Author: Michael Albinus <michael.albinus@gmx.de>
Commit: Michael Albinus <michael.albinus@gmx.de>
* 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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 06743df33a8: * lisp/net/tramp.el (tramp-accept-process-output): Use `with-local-quit'.,
Michael Albinus <=