From 3aea77c84a94460910facad9aa4dcd60cdcf9140 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 22 Jul 1993 19:45:42 +0000
Subject: [PATCH] "gzip" now uses ".gz" suffix instead of ".z"; make
 corresponding changes to Edwin.

---
 v7/src/edwin/dirunx.scm | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/v7/src/edwin/dirunx.scm b/v7/src/edwin/dirunx.scm
index b4ef528d9..92f38abea 100644
--- a/v7/src/edwin/dirunx.scm
+++ b/v7/src/edwin/dirunx.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: dirunx.scm,v 1.2 1993/04/15 10:13:05 cph Exp $
+;;;	$Id: dirunx.scm,v 1.3 1993/07/22 19:45:42 cph Exp $
 ;;;
 ;;;	Copyright (c) 1992-93 Massachusetts Institute of Technology
 ;;;
@@ -77,11 +77,11 @@
 	pathname
 	(let ((old-type (pathname-type pathname)))
 	  (cond ((not old-type)
-		 "z")
-		((string=? old-type "z")
+		 "gz")
+		((string=? old-type "gz")
 		 old-type)
 		(else
-		 (string-append old-type ".z")))))))))
+		 (string-append old-type ".gz")))))))))
 
 (define-command dired-uncompress
   "Uncompress a file using gunzip."
@@ -96,7 +96,8 @@
       (dired-redisplay
        (if (let ((type (pathname-type pathname)))
 	     (and type
-		  (or (string=? "z" type)
+		  (or (string=? "gz" type)
+		      (string=? "z" type)
 		      (string=? "Z" type))))
 	   (pathname-new-type pathname false)
 	   pathname)))))
-- 
2.25.1