Mercurial > emacs
changeset 55993:7f35f020d8d8
(dired-do-touch, dired-clean-directory, dired-run-shell-command)
(dired-query): Add autoloads.
| author | Luc Teirlinck <teirllm@auburn.edu> |
|---|---|
| date | Wed, 09 Jun 2004 01:04:28 +0000 |
| parents | b711ea364657 |
| children | d5ff6c629c22 |
| files | lisp/dired-aux.el |
| diffstat | 1 files changed, 4 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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).