Issue with remote async processes.

[Ergus <spacibba@aol.com>]

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?