diff options
| author | Richard M. Stallman | 1993-05-25 19:02:08 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-05-25 19:02:08 +0000 |
| commit | 2a0a090a921f226e1df3137c62c36a022b4ea4fc (patch) | |
| tree | de10ccd55ac0a673b07428da237fd122dcd63dad | |
| parent | be720845208cc20af4536d57b936da8b9549e669 (diff) | |
| download | emacs-2a0a090a921f226e1df3137c62c36a022b4ea4fc.tar.gz emacs-2a0a090a921f226e1df3137c62c36a022b4ea4fc.zip | |
(dired-compress-file): Test the return value of dired-check-process properly.
| -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)." | |||
| 487 | ((file-symlink-p file) | 487 | ((file-symlink-p file) |
| 488 | nil) | 488 | nil) |
| 489 | ((string-match "\\.Z$" file) | 489 | ((string-match "\\.Z$" file) |
| 490 | (if (dired-check-process (concat "Uncompressing " file) | 490 | (if (not (dired-check-process (concat "Uncompressing " file) |
| 491 | "uncompress" file) | 491 | "uncompress" file)) |
| 492 | (substring file 0 -2))) | 492 | (substring file 0 -2))) |
| 493 | (t | 493 | (t |
| 494 | (if (dired-check-process (concat "Compressing " file) | 494 | (if (not (dired-check-process (concat "Compressing " file) |
| 495 | "compress" "-f" file) | 495 | "compress" "-f" file)) |
| 496 | (concat name ".Z")))))) | 496 | (concat name ".Z")))))) |
| 497 | 497 | ||
| 498 | (defun dired-mark-confirm (op-symbol arg) | 498 | (defun dired-mark-confirm (op-symbol arg) |