diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-05-25 19:02:08 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-05-25 19:02:08 +0000 |
| commit | 2a0a090a921f226e1df3137c62c36a022b4ea4fc (patch) | |
| tree | de10ccd55ac0a673b07428da237fd122dcd63dad /lisp/dired-aux.el | |
| parent | be720845208cc20af4536d57b936da8b9549e669 (diff) | |
| download | emacs-2a0a090a921f226e1df3137c62c36a022b4ea4fc.tar.gz | |
(dired-compress-file): Test the return value of dired-check-process properly.
Diffstat (limited to 'lisp/dired-aux.el')
| -rw-r--r-- | lisp/dired-aux.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el index 3cff0fc3ea7..f8503f2d07f 100644 --- a/lisp/dired-aux.el +++ b/lisp/dired-aux.el @@ -487,12 +487,12 @@ and use this command with a prefix argument (the value does not matter)." ((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) |