From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 22 Jul 1993 19:45:42 +0000 (+0000)
Subject: "gzip" now uses ".gz" suffix instead of ".z"; make corresponding
X-Git-Tag: 20090517-FFI~8181
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=3aea77c84a94460910facad9aa4dcd60cdcf9140;p=mit-scheme.git

"gzip" now uses ".gz" suffix instead of ".z"; make corresponding
changes to Edwin.
---

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