# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 738957722 0
# Node ID 4fb117e748448a2668332f3cb15cdc7bb8264018
# Parent  b21d11dec1715fb81734bfb86ae0332f3bf07bd4
(dired-compress-file): Use gzip when proper/possible.

diff -r b21d11dec171 -r 4fb117e74844 lisp/dired-aux.el
--- a/lisp/dired-aux.el	Tue Jun 01 17:50:34 1993 +0000
+++ b/lisp/dired-aux.el	Tue Jun 01 18:02:02 1993 +0000
@@ -486,14 +486,26 @@
 	   (funcall handler 'dired-compress-file file))
 	  ((file-symlink-p file)
 	   nil)
-	  ((string-match "\\.Z$" file)
+	  ((let (case-fold-search)
+	     (string-match "\\.Z$" file))
 	   (if (not (dired-check-process (concat "Uncompressing " file)
 					 "uncompress" file))
 	       (substring file 0 -2)))
+	  ((let (case-fold-search)
+	     (string-match "\\.gz$" file))
+	   (if (not (dired-check-process (concat "Uncompressing " file)
+					 "gunzip" file))
+	       (substring file 0 -3)))
 	  (t
-	   (if (not (dired-check-process (concat "Compressing " file)
-					 "compress" "-f" file))
-	       (concat file ".Z"))))))
+	   ;;; Try gzip; if we don't have that, use compress.
+	   (condition-case nil
+	       (if (not (dired-check-process (concat "Compressing " file)
+					     "gzip" "-f" file))
+		   (concat file ".gz"))
+	     (file-error
+	      (if (not (dired-check-process (concat "Compressing " file)
+					    "compress" "-f" file))
+		  (concat file ".Z"))))))))
 
 (defun dired-mark-confirm (op-symbol arg)
   ;; Request confirmation from the user that the operation described