255 |
(error "chown not supported on this system")) |
(error "chown not supported on this system")) |
256 |
(dired-do-chxxx "Owner" dired-chown-program 'chown arg)) |
(dired-do-chxxx "Owner" dired-chown-program 'chown arg)) |
257 |
|
|
258 |
|
;;;###autoload |
259 |
(defun dired-do-touch (&optional arg) |
(defun dired-do-touch (&optional arg) |
260 |
"Change the timestamp of the marked (or next ARG) files. |
"Change the timestamp of the marked (or next ARG) files. |
261 |
This calls touch." |
This calls touch." |
343 |
|
|
344 |
(defvar dired-file-version-alist) |
(defvar dired-file-version-alist) |
345 |
|
|
346 |
|
;;;###autoload |
347 |
(defun dired-clean-directory (keep) |
(defun dired-clean-directory (keep) |
348 |
"Flag numerical backups for deletion. |
"Flag numerical backups for deletion. |
349 |
Spares `dired-kept-versions' latest versions, and `kept-old-versions' oldest. |
Spares `dired-kept-versions' latest versions, and `kept-old-versions' oldest. |
553 |
(funcall stuff-it files))))) |
(funcall stuff-it files))))) |
554 |
|
|
555 |
;; This is an extra function so that it can be redefined by ange-ftp. |
;; This is an extra function so that it can be redefined by ange-ftp. |
556 |
|
;;;###autoload |
557 |
(defun dired-run-shell-command (command) |
(defun dired-run-shell-command (command) |
558 |
(let ((handler |
(let ((handler |
559 |
(find-file-name-handler (directory-file-name default-directory) |
(find-file-name-handler (directory-file-name default-directory) |
808 |
;; None of these keys quit - use C-g for that. |
;; None of these keys quit - use C-g for that. |
809 |
)) |
)) |
810 |
|
|
811 |
|
;;;###autoload |
812 |
(defun dired-query (qs-var qs-prompt &rest qs-args) |
(defun dired-query (qs-var qs-prompt &rest qs-args) |
813 |
;; Query user and return nil or t. |
;; Query user and return nil or t. |
814 |
;; Store answer in symbol VAR (which must initially be bound to nil). |
;; Store answer in symbol VAR (which must initially be bound to nil). |