From d14144268cb5b23932bb788ea4ce9ee217a2f1d3 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 12 Aug 1993 03:36:56 +0000 Subject: [PATCH] (dired-compress-file): Fix previous change. --- lisp/dired-aux.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 2.39.5