From: Michael Albinus <michael.albinus@gmx.de>
To: Duncan Greatwood <dgbulk@gmail.com>
Cc: 45518@debbugs.gnu.org
Subject: bug#45518: Ctrl-G Fails to Interrupt Hung Tramp Remote-Compile in Emacs 27.1
Date: Thu, 11 Feb 2021 16:22:26 +0100 [thread overview]
Message-ID: <87sg62bpe5.fsf@gmx.de> (raw)
In-Reply-To: <87wnvgaq2y.fsf@gmx.de> (Michael Albinus's message of "Wed, 10 Feb 2021 16:40:37 +0100")
[-- Attachment #1: Type: text/plain, Size: 1203 bytes --]
Michael Albinus <michael.albinus@gmx.de> writes:
Hi Duncan,
>> There is still one tramp hanging issue I saw in my testing. This is a
>> much less serious issue (pressing ctrl-G once "unhangs"), but thought
>> I'd mention it here. LMK if you'd prefer a separate bug report and
>> I'll create one.
>
> Just an update. I've played with this for a while. I could reproduce,
> and I also know where it hangs. It is accept-process-output of the Tramp
> process which tries to view the file you have clicked on, vs
> accept-process-output of the compile process. Both don't cooperate
> sufficiently, and both hang.
>
> I have no idea (yet) how to solve. One idea would be to start the
> compilation process in another thread, but this will raise other
> problems. There is some WIP to make Tramp thread-safe, but this is
> stalled ATM.
Since I don't know a general solution yet, I have prepared a small
patch, which suppresses visting remote files as result of a
compilation. Silently. When compilation has finished, everything is back
to normal.
See the appended patch, whether it makes the situation better for you.
>> Thanks again for fixing the main hanging issue!
>> Duncan.
Best regards, Michael.
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: Type: text/x-patch, Size: 1669 bytes --]
*** /tmp/ediffuS9ebt 2021-02-11 16:14:54.793873579 +0100
--- /net/ford/albinus/src/tramp/lisp/tramp-integration.el 2021-02-11 16:10:01.276681568 +0100
***************
*** 261,266 ****
--- 261,294 ----
(delete (info-lookup->mode-cache 'symbol ',mode)
(info-lookup->topic-cache 'symbol))))))))
+ ;; Compilation processes use `accept-process-output' such a way that
+ ;; Tramp's parallel `accept-process-output' blocks. See last part of
+ ;; Bug#45518. So we forbid them to run in parallel. There must be a
+ ;; better solution, though.
+ (with-eval-after-load 'compile
+ (add-hook 'compilation-start-hook
+ #'tramp-compile-advice-add)
+ (add-hook 'compilation-finish-functions
+ #'tramp-compile-advice-remove)
+ (add-hook 'tramp-integration-unload-hook
+ (lambda ()
+ (remove-hook 'compilation-start-hook
+ #'tramp-compile-advice-add)
+ (remove-hook 'compilation-finish-functions
+ #'tramp-compile-advice-remove))))
+
+ (defun tramp-compile-advice-add (proc)
+ "Don't allow remote file operations while compiling."
+ (with-current-buffer (process-buffer proc)
+ (when (file-remote-p default-directory)
+ (advice-add 'ignore :override 'compile-goto-error))))
+
+ (defun tramp-compile-advice-remove (buffer _message)
+ "Reenable remote file operations."
+ (with-current-buffer buffer
+ (when (file-remote-p default-directory)
+ (advice-remove 'ignore 'compile-goto-error))))
+
;;; Default connection-local variables for Tramp:
;; `connection-local-set-profile-variables' and
;; `connection-local-set-profiles' exists since Emacs 26.1.
next prev parent reply other threads:[~2021-02-11 15:22 UTC|newest]
Thread overview: 28+ messages / expand[flat|nested] mbox.gz Atom feed top
2020-12-29 1:10 bug#45518: Ctrl-G Fails to Interrupt Hung Tramp Remote-Compile in Emacs 27.1 Duncan Greatwood
2020-12-30 10:36 ` Michael Albinus
2020-12-30 21:13 ` Duncan Greatwood
2020-12-31 8:42 ` Michael Albinus
2021-01-03 10:27 ` Michael Albinus
2021-01-03 19:27 ` Duncan Greatwood
2021-01-06 13:37 ` Michael Albinus
2021-01-06 22:54 ` Duncan Greatwood
2021-01-11 10:58 ` Michael Albinus
2021-01-11 16:52 ` Duncan Greatwood
2021-01-11 17:56 ` Michael Albinus
2021-01-12 4:34 ` Duncan Greatwood
2021-01-12 9:02 ` Michael Albinus
2021-01-12 15:02 ` Michael Albinus
2021-01-29 5:15 ` Duncan Greatwood
2021-01-29 8:53 ` Michael Albinus
2021-02-10 15:40 ` Michael Albinus
2021-02-11 15:22 ` Michael Albinus [this message]
2021-02-14 1:38 ` Duncan Greatwood
2021-02-14 14:15 ` Michael Albinus
2021-02-15 20:21 ` Duncan Greatwood
2021-02-16 20:09 ` Michael Albinus
2021-02-17 5:41 ` Duncan Greatwood
2021-02-17 15:39 ` Michael Albinus
2021-03-16 1:36 ` Duncan Greatwood
2021-03-16 18:30 ` Michael Albinus
[not found] <CAN_Aq+rYcM7wHHWXKBqyY4P0Ew04RfkqnQUioqtUk0AOUeaRMA@mail.gmail.com>
2021-02-25 18:33 ` Michael Albinus
2021-03-15 20:49 ` Michael Albinus
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.gnu.org/software/emacs/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87sg62bpe5.fsf@gmx.de \
--to=michael.albinus@gmx.de \
--cc=45518@debbugs.gnu.org \
--cc=dgbulk@gmail.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).