mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-18 22:20:56 -08:00
Code Issues Projects Releases Wiki Activity

* dired-aux.el (dired-do-chmod): Use dired-chmod-program.

Browse source 
(dired-do-chgrp, dired-do-chown) [DOS_NT]: Disabled.
This commit is contained in:
Karl Heuer 1995-04-12 03:08:59 +00:00
parent ebd67b8e2d
commit a40dbafc08
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/dired-aux.el
View file

@ -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,