aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/dired-aux.el6
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.
111This calls chmod, thus symbolic modes like `g+w' are allowed." 111This 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,