Improve handling of INFILE in tramp*-process-file (Bug#53284)

* lisp/net/tramp-adb.el (tramp-adb-handle-process-file):
* lisp/net/tramp-sh.el (tramp-sh-handle-process-file):
* lisp/net/tramp-smb.el (tramp-smb-handle-process-file):
* lisp/net/tramp-sshfs.el (tramp-sshfs-handle-process-file):
Improve handling of INFILE.  Fix thinko using
`process-file-side-effects'.  (Bug#53284)

* lisp/net/tramp-sshfs.el (tramp-sshfs-file-name-handler-alist):
Use `tramp-sshfs-handle-set-file-times'.
(tramp-sshfs-handle-set-file-times): New defun.

* test/lisp/net/tramp-tests.el (tramp-test28-process-file): Extend test.

1 files changed, 13 insertions, 1 deletions

diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el
index ea0ff3c760e..a07d749916e 100644
--- a/test/lisp/net/tramp-tests.el
+++ b/test/lisp/net/tramp-tests.el
@@ -4504,7 +4504,19 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'."
               (should
                (string-equal (format "%s\n%s\n" fnnd fnnd) (buffer-string)))
               ;; A non-nil DISPLAY must not raise the buffer.
-              (should-not (get-buffer-window (current-buffer) t))))
+              (should-not (get-buffer-window (current-buffer) t))
+              (delete-file tmp-name))
+
+            ;; Check remote and local INFILE.
+            (dolist (local '(nil t))
+              (with-temp-buffer
+                (setq tmp-name (tramp--test-make-temp-name local quoted))
+                (write-region "foo" nil tmp-name)
+                (should (file-exists-p tmp-name))
+                (should (zerop (process-file "cat" tmp-name t)))
+                (should (string-equal "foo" (buffer-string)))
+                (should-not (get-buffer-window (current-buffer) t)))
+              (delete-file tmp-name)))
 
         ;; Cleanup.
         (ignore-errors (delete-file tmp-name))))))