[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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master d750b37: Allow chown/chgrp for remote directories on w32,
Michael Albinus <=