diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-12-23 03:34:57 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-12-23 03:34:57 +0000 |
| commit | c70ae8ece4709f4260c79d2356a81379c5031f37 (patch) | |
| tree | f026d90b13c1c7f8cf106250aaf764647170c986 /lisp/dired-aux.el | |
| parent | f13d71ed2646c0cfc660266c566d11dbb579ab10 (diff) | |
| download | emacs-c70ae8ece4709f4260c79d2356a81379c5031f37.tar.gz | |
Autoload dired-.*-file.
(dired-insert-subdir-validate): Call expand-file-name.
Diffstat (limited to 'lisp/dired-aux.el')
| -rw-r--r-- | lisp/dired-aux.el | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el index 9718c71ac8e..99e0063a94a 100644 --- a/lisp/dired-aux.el +++ b/lisp/dired-aux.el @@ -492,6 +492,7 @@ and use this command with a prefix argument (the value does not matter)." (dired-log (concat "Failed to compress" from-file)) from-file))) +;;;###autoload (defun dired-compress-file (file) ;; Compress or uncompress FILE. ;; Return the name of the compressed or uncompressed file. @@ -723,6 +724,7 @@ a prefix arg lets you edit the `ls' switches used for the new listing." (set-buffer obuf))) success-list)) +;;;###autoload (defun dired-add-file (filename &optional marker-char) (dired-fun-in-all-buffers (file-name-directory filename) @@ -816,6 +818,7 @@ a prefix arg lets you edit the `ls' switches used for the new listing." (forward-line 1)) (point))) +;;;###autoload (defun dired-remove-file (file) (dired-fun-in-all-buffers (file-name-directory file) (function dired-remove-entry) file)) @@ -827,6 +830,7 @@ a prefix arg lets you edit the `ls' switches used for the new listing." (delete-region (progn (beginning-of-line) (point)) (save-excursion (forward-line 1) (point))))))) +;;;###autoload (defun dired-relist-file (file) (dired-fun-in-all-buffers (file-name-directory file) (function dired-relist-entry) file)) @@ -868,10 +872,12 @@ Special value `always' suppresses confirmation.") (rename-file to backup 0) ; confirm overwrite of old backup (dired-relist-entry backup)))) +;;;###autoload (defun dired-copy-file (from to ok-flag) (dired-handle-overwrite to) (copy-file from to ok-flag dired-copy-preserve-time)) +;;;###autoload (defun dired-rename-file (from to ok-flag) (dired-handle-overwrite to) (rename-file from to ok-flag) ; error is caught in -create-files @@ -1500,7 +1506,7 @@ This function takes some pains to conform to `ls -lR' output." (defun dired-insert-subdir-validate (dirname &optional switches) ;; Check that it is valid to insert DIRNAME with SWITCHES. ;; Signal an error if invalid (e.g. user typed `i' on `..'). - (or (dired-in-this-tree dirname default-directory) + (or (dired-in-this-tree dirname (expand-file-name default-directory)) (error "%s: not in this directory tree" dirname)) (if switches (let (case-fold-search) |