diff options
| author | Richard M. Stallman | 1993-05-25 19:05:13 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-05-25 19:05:13 +0000 |
| commit | 730426aeb14844bcd6fe594d20c967bb8ec7a89f (patch) | |
| tree | 2c5f93f8d384a88d62dc8d7de313e61aec6fea0b | |
| parent | 2a0a090a921f226e1df3137c62c36a022b4ea4fc (diff) | |
| download | emacs-730426aeb14844bcd6fe594d20c967bb8ec7a89f.tar.gz emacs-730426aeb14844bcd6fe594d20c967bb8ec7a89f.zip | |
(dired-compress-file): Test the return value
of dired-check-process properly.
Fix use of nonexistent var `name'.
| -rw-r--r-- | lisp/dired-aux.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el index f8503f2d07f..3d2f477962c 100644 --- a/lisp/dired-aux.el +++ b/lisp/dired-aux.el | |||
| @@ -493,7 +493,7 @@ and use this command with a prefix argument (the value does not matter)." | |||
| 493 | (t | 493 | (t |
| 494 | (if (not (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 file ".Z")))))) |
| 497 | 497 | ||
| 498 | (defun dired-mark-confirm (op-symbol arg) | 498 | (defun dired-mark-confirm (op-symbol arg) |
| 499 | ;; Request confirmation from the user that the operation described | 499 | ;; Request confirmation from the user that the operation described |