changeset 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 a7003e65eb66
children 9b210c7d6c23
files lisp/dired-aux.el
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
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)