# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 738356528 0
# Node ID 0f6e6e56b4036ad0f26d1e2cea1d4a780b846545
# Parent  ea0cb469490e2439ccc674879a53305f091ae5fa
(dired-compress-file): Test the return value of dired-check-process properly.

diff -r ea0cb469490e -r 0f6e6e56b403 lisp/dired-aux.el
--- a/lisp/dired-aux.el	Tue May 25 18:49:54 1993 +0000
+++ b/lisp/dired-aux.el	Tue May 25 19:02:08 1993 +0000
@@ -487,12 +487,12 @@
 	  ((file-symlink-p file)
 	   nil)
 	  ((string-match "\\.Z$" file)
-	   (if (dired-check-process (concat "Uncompressing " file)
-				    "uncompress" file)
+	   (if (not (dired-check-process (concat "Uncompressing " file)
+					 "uncompress" file))
 	       (substring file 0 -2)))
 	  (t
-	   (if (dired-check-process (concat "Compressing " file)
-				    "compress" "-f" file)
+	   (if (not (dired-check-process (concat "Compressing " file)
+					 "compress" "-f" file))
 	       (concat name ".Z"))))))
 
 (defun dired-mark-confirm (op-symbol arg)