Mercurial > emacs
diff lisp/dired-aux.el @ 1381:1131f4462ca2
* 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.
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Sun, 11 Oct 1992 06:34:28 +0000 |
| parents | 54a44b2b9591 |
| children | 2d29bf379da3 |
line wrap: on
line diff
--- a/lisp/dired-aux.el Sun Oct 11 05:25:11 1992 +0000 +++ b/lisp/dired-aux.el Sun Oct 11 06:34:28 1992 +0000 @@ -490,12 +490,12 @@ ((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)