Mercurial > emacs

changeset 3088:0f6e6e56b403

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(dired-compress-file): Test the return value of dired-check-process properly.
author Richard M. Stallman <rms@gnu.org>
date Tue, 25 May 1993 19:02:08 +0000
parents ea0cb469490e
children 02bed2af9f9b
files lisp/dired-aux.el
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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)