From 8d93a0152963741e030de8465530ca73a99d0367 Mon Sep 17 00:00:00 2001 From: Jim Blandy Date: Sun, 11 Oct 1992 06:34:28 +0000 Subject: * 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. --- lisp/dired-aux.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'lisp/dired-aux.el') 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) -- cgit v1.2.1