diff options
| -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'." | |||
| 110 | "Change the mode of the marked (or next ARG) files. | 110 | "Change the mode of the marked (or next ARG) files. |
| 111 | This calls chmod, thus symbolic modes like `g+w' are allowed." | 111 | This calls chmod, thus symbolic modes like `g+w' are allowed." |
| 112 | (interactive "P") | 112 | (interactive "P") |
| 113 | (dired-do-chxxx "Mode" "chmod" 'chmod arg)) | 113 | (dired-do-chxxx "Mode" dired-chmod-program 'chmod arg)) |
| 114 | 114 | ||
| 115 | ;;;###autoload | 115 | ;;;###autoload |
| 116 | (defun dired-do-chgrp (&optional arg) | 116 | (defun dired-do-chgrp (&optional arg) |
| 117 | "Change the group of the marked (or next ARG) files." | 117 | "Change the group of the marked (or next ARG) files." |
| 118 | (interactive "P") | 118 | (interactive "P") |
| 119 | (if (memq system-type '(ms-dos windows-nt)) | ||
| 120 | (error "chgrp not supported on this system.")) | ||
| 119 | (dired-do-chxxx "Group" "chgrp" 'chgrp arg)) | 121 | (dired-do-chxxx "Group" "chgrp" 'chgrp arg)) |
| 120 | 122 | ||
| 121 | ;;;###autoload | 123 | ;;;###autoload |
| 122 | (defun dired-do-chown (&optional arg) | 124 | (defun dired-do-chown (&optional arg) |
| 123 | "Change the owner of the marked (or next ARG) files." | 125 | "Change the owner of the marked (or next ARG) files." |
| 124 | (interactive "P") | 126 | (interactive "P") |
| 127 | (if (memq system-type '(ms-dos windows-nt)) | ||
| 128 | (error "chown not supported on this system.")) | ||
| 125 | (dired-do-chxxx "Owner" dired-chown-program 'chown arg)) | 129 | (dired-do-chxxx "Owner" dired-chown-program 'chown arg)) |
| 126 | 130 | ||
| 127 | ;; Process all the files in FILES in batches of a convenient size, | 131 | ;; Process all the files in FILES in batches of a convenient size, |