From: Michael Albinus <michael.albinus@gmx.de>
Date: Mon, 8 Jul 2019 12:03:17 +0000 (+0200)
Subject: Allow chown/chgrp for remote directories on w32
X-Git-Tag: emacs-27.0.90~2058
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d750b37cece666716d234c6e529a3f5d9bc56bd5;p=emacs.git

Allow chown/chgrp for remote directories on w32

* lisp/dired-aux.el (dired-do-chgrp, dired-do-chown):
Allow them for remote directories, even when run on w32.  See
<https://emacs.stackexchange.com/questions/51477/chown-with-dired-over-tramp-from-windows-machine>.
---

diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index 5e4ec4d1ecb..d83e57d58dc 100644
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -410,7 +410,8 @@ into the minibuffer."
 Type M-n to pull the file attributes of the file at point
 into the minibuffer."
   (interactive "P")
-  (if (memq system-type '(ms-dos windows-nt))
+  (if (and (memq system-type '(ms-dos windows-nt))
+           (not (file-remote-p default-directory)))
       (error "chgrp not supported on this system"))
   (dired-do-chxxx "Group" "chgrp" 'chgrp arg))
 
@@ -420,7 +421,8 @@ into the minibuffer."
 Type M-n to pull the file attributes of the file at point
 into the minibuffer."
   (interactive "P")
-  (if (memq system-type '(ms-dos windows-nt))
+  (if (and (memq system-type '(ms-dos windows-nt))
+           (not (file-remote-p default-directory)))
       (error "chown not supported on this system"))
   (dired-do-chxxx "Owner" dired-chown-program 'chown arg))