# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 738356713 0
# Node ID 02bed2af9f9b156fb3d925959483329714dcc29e
# Parent  0f6e6e56b4036ad0f26d1e2cea1d4a780b846545
(dired-compress-file): Test the return value
of dired-check-process properly.
Fix use of nonexistent var `name'.

diff -r 0f6e6e56b403 -r 02bed2af9f9b lisp/dired-aux.el
--- a/lisp/dired-aux.el	Tue May 25 19:02:08 1993 +0000
+++ b/lisp/dired-aux.el	Tue May 25 19:05:13 1993 +0000
@@ -493,7 +493,7 @@
 	  (t
 	   (if (not (dired-check-process (concat "Compressing " file)
 					 "compress" "-f" file))
-	       (concat name ".Z"))))))
+	       (concat file ".Z"))))))
 
 (defun dired-mark-confirm (op-symbol arg)
   ;; Request confirmation from the user that the operation described