diff options
| author | Richard M. Stallman | 1993-08-12 03:36:56 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-08-12 03:36:56 +0000 |
| commit | d14144268cb5b23932bb788ea4ce9ee217a2f1d3 (patch) | |
| tree | 10b5d3210ede4250027318ef967968f57ae75043 | |
| parent | 65c200c5715a07023486feb1a30ab25be1930052 (diff) | |
| download | emacs-d14144268cb5b23932bb788ea4ce9ee217a2f1d3.tar.gz emacs-d14144268cb5b23932bb788ea4ce9ee217a2f1d3.zip | |
(dired-compress-file): Fix previous change.
| -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 dd266ce8ae1..ea5aca6b898 100644 --- a/lisp/dired-aux.el +++ b/lisp/dired-aux.el | |||
| @@ -517,7 +517,7 @@ and use this command with a prefix argument (the value does not matter)." | |||
| 517 | (string-match "\\.z$" file)) | 517 | (string-match "\\.z$" file)) |
| 518 | (if (not (dired-check-process (concat "Uncompressing " file) | 518 | (if (not (dired-check-process (concat "Uncompressing " file) |
| 519 | "gunzip" file)) | 519 | "gunzip" file)) |
| 520 | (substring file 0 -3))) | 520 | (substring file 0 -2))) |
| 521 | (t | 521 | (t |
| 522 | ;;; Try gzip; if we don't have that, use compress. | 522 | ;;; Try gzip; if we don't have that, use compress. |
| 523 | (condition-case nil | 523 | (condition-case nil |