Mercurial > emacs

changeset 11395:a3c6991e86b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* dired-aux.el (dired-do-chmod): Use dired-chmod-program. (dired-do-chgrp, dired-do-chown) [DOS_NT]: Disabled.
author Karl Heuer <kwzh@gnu.org>
date Wed, 12 Apr 1995 03:08:59 +0000
parents 77d5d2219f05
children 9c92e5ea420a
files lisp/dired-aux.el
diffstat 1 files changed, 5 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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,