diff options
| author | Jim Blandy <jimb@redhat.com> | 1992-10-11 06:34:28 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1992-10-11 06:34:28 +0000 |
| commit | 8d93a0152963741e030de8465530ca73a99d0367 (patch) | |
| tree | ec2c9eea68c4e0d9079e5eef0785c0cbac537720 /lisp/dired-aux.el | |
| parent | 48444593e972c26349389ea66184f0f2a4485108 (diff) | |
| download | emacs-8d93a0152963741e030de8465530ca73a99d0367.tar.gz | |
* dired-aux.el (dired-compress-file): Change references to
`from-file' to use `file'; the former only works because
dired-compress-file is only called by dired-compress, which binds
from-file.
Diffstat (limited to 'lisp/dired-aux.el')
| -rw-r--r-- | lisp/dired-aux.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el index ad154f9dea1..fa8951b69b1 100644 --- a/lisp/dired-aux.el +++ b/lisp/dired-aux.el @@ -490,12 +490,12 @@ and use this command with a prefix argument (the value does not matter)." ((file-symlink-p file) nil) ((string-match "\\.Z$" file) - (if (dired-check-process (concat "Uncompressing " from-file) - "uncompress" from-file) + (if (dired-check-process (concat "Uncompressing " file) + "uncompress" file) (substring file 0 -2))) (t - (if (dired-check-process (concat "Compressing " from-file) - "compress" "-f" from-file) + (if (dired-check-process (concat "Compressing " file) + "compress" "-f" file) (concat name ".Z")))))) (defun dired-mark-confirm (op-symbol arg) |