# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 797656139 0
# Node ID a3c6991e86b4254c117adbb6900b857c25470c2c
# Parent  77d5d2219f057f514217ed40325f79c4089b449c
* dired-aux.el (dired-do-chmod): Use dired-chmod-program.
(dired-do-chgrp, dired-do-chown) [DOS_NT]: Disabled.

diff -r 77d5d2219f05 -r a3c6991e86b4 lisp/dired-aux.el
--- a/lisp/dired-aux.el	Wed Apr 12 03:00:06 1995 +0000
+++ b/lisp/dired-aux.el	Wed Apr 12 03:08:59 1995 +0000
@@ -110,18 +110,22 @@
   "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,