From 05dcf18afa696f9b4e248f0caf285e401dd12910 Mon Sep 17 00:00:00 2001 From: Luc Teirlinck Date: Wed, 9 Jun 2004 01:04:28 +0000 Subject: [PATCH] (dired-do-touch, dired-clean-directory, dired-run-shell-command) (dired-query): Add autoloads. --- lisp/dired-aux.el | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el index 3d662560faf..7e96f1673ed 100644 --- a/lisp/dired-aux.el +++ b/lisp/dired-aux.el @@ -255,6 +255,7 @@ This calls chmod, thus symbolic modes like `g+w' are allowed." (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 @@ Uses the shell command coming from variables `lpr-command' and (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 @@ the list of file names explicitly with the FILE-LIST argument." (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 @@ Otherwise, the rule is a compression rule, and compression is done with gzip.") ;; 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). -- 2.39.2