diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-08-12 03:36:56 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-08-12 03:36:56 +0000 |
| commit | ba6a3f12b05b56af4f0383ece9947eb615ee6f5a (patch) | |
| tree | d87aa45438165af0bfa68306ad1939371d81109c /lisp/dired-aux.el | |
| parent | a5adf190b42549e378f307123bdd010e3f051053 (diff) | |
| download | emacs-ba6a3f12b05b56af4f0383ece9947eb615ee6f5a.tar.gz | |
(dired-compress-file): Fix previous change.
Diffstat (limited to 'lisp/dired-aux.el')
| -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)." (string-match "\\.z$" file)) (if (not (dired-check-process (concat "Uncompressing " file) "gunzip" file)) - (substring file 0 -3))) + (substring file 0 -2))) (t ;;; Try gzip; if we don't have that, use compress. (condition-case nil |