# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 718785268 0
# Node ID 1131f4462ca2536f3cc92cf39fdd021e6c045d65
# Parent  a7003e65eb6693019a8e6a39577b43b8d3721f7b
	* 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 -r a7003e65eb66 -r 1131f4462ca2 lisp/dired-aux.el
--- 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)