[Emacs-diffs] Changes to emacs/lisp/net/tramp.el,v

[Michael Albinus]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Michael Albinus <albinus>       07/10/23 21:56:55

Index: net/tramp.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/net/tramp.el,v
retrieving revision 1.150
retrieving revision 1.151
diff -u -b -r1.150 -r1.151
--- net/tramp.el        22 Oct 2007 19:09:51 -0000      1.150
+++ net/tramp.el        23 Oct 2007 21:56:54 -0000      1.151
@@ -2575,11 +2575,14 @@
     ;; We handle also the local part, because there doesn't exist
     ;; `set-file-uid-gid'.
     (let ((uid (or (and (integerp uid) uid) (tramp-get-local-uid 'integer)))
-         (gid (or (and (integerp gid) gid) (tramp-get-local-uid 'integer)))
+         (gid (or (and (integerp gid) gid) (tramp-get-local-gid 'integer)))
          (default-directory (tramp-compat-temporary-file-directory)))
+      ;; "chown" might not exist, for example on Win32.
+      (condition-case nil
       (call-process
        "chown" nil nil nil
-       (format "%d:%d" uid gid) (tramp-shell-quote-argument filename)))))
+          (format "%d:%d" uid gid) (tramp-shell-quote-argument filename))
+       (error nil)))))
 
 ;; Simple functions using the `test' command.