Re: Issue with remote async processes.

[Michael Albinus]

Ergus <spacibba@aol.com> writes:

> Hi:

Hi,

> I have this simple code:
>
> (defun my/async-sentinel (process _msg)
>   "Sentinel function for an asynchronous counsel PROCESS."
>   (when (eq (process-status process) 'exit)
>     (with-current-buffer " *string-output*"
>       (while (accept-process-output process))
>       (message "%s" (buffer-substring-no-properties (point-min) 
> (point-max))))))
>
> (let ((my/output (generate-new-buffer " *string-output*" t))
>       process)
>   (with-connection-local-variables
>    (setq process (start-file-process "myls" my/output "ls"))
>    (set-process-sentinel process #'my/async-sentinel)))
>
> This works in local processes without issues, but on remote I don't get
> any output.  Probably it is an error in the code, but I don't understand
> what's missing. And something similar to this used to work before.
>
> Any help please?

You call (generate-new-buffer " *string-output*" t) which means several
instances of this buffer might exist in parallel, with different
names. So you cannot expect, that

--8<---------------cut here---------------start------------->8---
(with-current-buffer " *string-output*"
--8<---------------cut here---------------end--------------->8---

works. Instead, use

--8<---------------cut here---------------start------------->8---
(with-current-buffer (process-buffer process)
--8<---------------cut here---------------end--------------->8---

Best regards, Michael.