emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] master d750b37: Allow chown/chgrp for remote directories o


From: Michael Albinus
Subject: [Emacs-diffs] master d750b37: Allow chown/chgrp for remote directories on w32
Date: Mon, 8 Jul 2019 08:03:28 -0400 (EDT)

branch: master
commit d750b37cece666716d234c6e529a3f5d9bc56bd5
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>

    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>.
---
 lisp/dired-aux.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index 5e4ec4d..d83e57d 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))
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]