# HG changeset patch
# User Luc Teirlinck <teirllm@auburn.edu>
# Date 1086743068 0
# Node ID 7f35f020d8d8696a5d1befc6e2aea6c83149d28c
# Parent  b711ea3646572eed7c021e57ffd517351bd0e077
(dired-do-touch, dired-clean-directory, dired-run-shell-command)
(dired-query): Add autoloads.

diff -r b711ea364657 -r 7f35f020d8d8 lisp/dired-aux.el
--- a/lisp/dired-aux.el	Wed Jun 09 00:25:30 2004 +0000
+++ b/lisp/dired-aux.el	Wed Jun 09 01:04:28 2004 +0000
@@ -255,6 +255,7 @@
       (error "chown not supported on this system"))
   (dired-do-chxxx "Owner" dired-chown-program 'chown arg))
 
+;;;###autoload
 (defun dired-do-touch (&optional arg)
   "Change the timestamp of the marked (or next ARG) files.
 This calls touch."
@@ -342,6 +343,7 @@
 
 (defvar dired-file-version-alist)
 
+;;;###autoload
 (defun dired-clean-directory (keep)
   "Flag numerical backups for deletion.
 Spares `dired-kept-versions' latest versions, and `kept-old-versions' oldest.
@@ -551,6 +553,7 @@
 	(funcall stuff-it files)))))
 
 ;; This is an extra function so that it can be redefined by ange-ftp.
+;;;###autoload
 (defun dired-run-shell-command (command)
   (let ((handler
 	 (find-file-name-handler (directory-file-name default-directory)
@@ -805,6 +808,7 @@
     ;; None of these keys quit - use C-g for that.
     ))
 
+;;;###autoload
 (defun dired-query (qs-var qs-prompt &rest qs-args)
   ;; Query user and return nil or t.
   ;; Store answer in symbol VAR (which must initially be bound to nil).