From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 12 Aug 1993 03:36:56 +0000 (+0000)
Subject: (dired-compress-file): Fix previous change.
X-Git-Tag: emacs-19.34~11271
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d14144268cb5b23932bb788ea4ce9ee217a2f1d3;p=emacs.git

(dired-compress-file): Fix previous change.
---

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