* 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.

diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index ad154f9dea10cba05f6bbca90a83e40f2b206dd2..fa8951b69b105423b384a1c49746f2633b497e03 100644 (file)
--- 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"))))))
 \f
 (defun dired-mark-confirm (op-symbol arg)