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 | abe14431150fd59d20cfeaced0c4009646d3d070 (patch) | |
| tree | 76336abd3c0cec05039ff0b7c045edcae928acde /lisp/dired-aux.el | |
| parent | 49c13105577e13b31a84622348b37d1724fbcdc4 (diff) | |
| download | emacs-abe14431150fd59d20cfeaced0c4009646d3d070.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) |