1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00

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

This commit is contained in:
Richard M. Stallman 1993-08-12 03:36:56 +00:00
parent 65c200c571
commit d14144268c

View file

@ -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