diff options
author | Karl Heuer <kwzh@gnu.org> | 1995-04-12 03:08:59 +0000 |
---|---|---|
committer | Karl Heuer <kwzh@gnu.org> | 1995-04-12 03:08:59 +0000 |
commit | 0be01790285356e35b5c70e96750dc40cb781a20 (patch) | |
tree | bf932fa240e28f9ad7431060afc797ed01c33932 /lisp/dired-aux.el | |
parent | a434b22763d4408913a331c70a090d6a8a89a879 (diff) | |
download | emacs-0be01790285356e35b5c70e96750dc40cb781a20.tar.gz |
* dired-aux.el (dired-do-chmod): Use dired-chmod-program.
(dired-do-chgrp, dired-do-chown) [DOS_NT]: Disabled.
Diffstat (limited to 'lisp/dired-aux.el')
-rw-r--r-- | lisp/dired-aux.el | 6 |
1 files changed, 5 insertions, 1 deletions
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, |