diff options
| author | Michael Albinus | 2023-03-31 09:45:23 +0200 |
|---|---|---|
| committer | Michael Albinus | 2023-03-31 09:45:23 +0200 |
| commit | 06743df33a87a08ab2e69e797659e7ba9beb2dbb (patch) | |
| tree | af46862074f7b284c3ab6bb61d6218e44f29c2bf | |
| parent | 73a320801e9af61a48fd0e803afcd02b059b2338 (diff) | |
| download | emacs-06743df33a87a08ab2e69e797659e7ba9beb2dbb.tar.gz emacs-06743df33a87a08ab2e69e797659e7ba9beb2dbb.zip | |
* lisp/net/tramp.el (tramp-accept-process-output): Use `with-local-quit'.
| -rw-r--r-- | lisp/net/tramp.el | 2 |
1 files changed, 1 insertions, 1 deletions
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'." | |||
| 5815 | (v (process-get proc 'tramp-vector))) | 5815 | (v (process-get proc 'tramp-vector))) |
| 5816 | (dolist (p (delq proc (process-list))) | 5816 | (dolist (p (delq proc (process-list))) |
| 5817 | (when (tramp-file-name-equal-p v (process-get p 'tramp-vector)) | 5817 | (when (tramp-file-name-equal-p v (process-get p 'tramp-vector)) |
| 5818 | (accept-process-output p 0 nil t)))) | 5818 | (with-local-quit (accept-process-output p 0 nil t))))) |
| 5819 | 5819 | ||
| 5820 | (with-current-buffer (process-buffer proc) | 5820 | (with-current-buffer (process-buffer proc) |
| 5821 | (let ((inhibit-read-only t) | 5821 | (let ((inhibit-read-only t) |