From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 12 Apr 1995 03:08:59 +0000 (+0000)
Subject: * dired-aux.el (dired-do-chmod): Use dired-chmod-program.
X-Git-Tag: emacs-19.34~4463
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a40dbafc08177ef0eaf623e830e374fc3e2749cf;p=emacs.git

* dired-aux.el (dired-do-chmod): Use dired-chmod-program.
(dired-do-chgrp, dired-do-chown) [DOS_NT]: Disabled.
---

diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index 9785b6cffb6..d1f8e87135e 100644
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -110,18 +110,22 @@ With prefix arg, prompt for argument SWITCHES which is options for `diff'."
   "Change the mode of the marked (or next ARG) files.
 This calls chmod, thus symbolic modes like `g+w' are allowed."
   (interactive "P")
-  (dired-do-chxxx "Mode" "chmod" 'chmod arg))
+  (dired-do-chxxx "Mode" dired-chmod-program 'chmod arg))
 
 ;;;###autoload
 (defun dired-do-chgrp (&optional arg)
   "Change the group of the marked (or next ARG) files."
   (interactive "P")
+  (if (memq system-type '(ms-dos windows-nt))
+      (error "chgrp not supported on this system."))
   (dired-do-chxxx "Group" "chgrp" 'chgrp arg))
 
 ;;;###autoload
 (defun dired-do-chown (&optional arg)
   "Change the owner of the marked (or next ARG) files."
   (interactive "P")
+  (if (memq system-type '(ms-dos windows-nt))
+      (error "chown not supported on this system."))
   (dired-do-chxxx "Owner" dired-chown-program 'chown arg))
 
 ;; Process all the files in FILES in batches of a convenient size,