From xemacs-m  Wed Jun 18 14:05:28 1997
Received: from altair.xemacs.org (steve@xemacs.miranova.com [206.190.83.19])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id OAA26757
	for <xemacs-beta@xemacs.org>; Wed, 18 Jun 1997 14:05:25 -0500 (CDT)
Received: (from steve@localhost)
	by altair.xemacs.org (8.8.5/8.8.5) id MAA24452;
	Wed, 18 Jun 1997 12:05:19 -0700
Mail-Copies-To: never
To: xemacs-beta@xemacs.org
Subject: Re: arc-mode warnings
References: <rxsafko5hni.fsf@midnight.ecf.teradyne.com> <m2en9z6d1u.fsf@altair.xemacs.org> <rxsafkng2vi.fsf@midnight.ecf.teradyne.com>
X-Url: http://www.miranova.com/%7Esteve/
X-Face: #!T9!#9s-3o8)*uHlX{Ug[xW7E7Wr!*L46-OxqMu\xz23v|R9q}lH?cRS{rCNe^'[`^sr5"
 f8*@r4ipO6Jl!:Ccq<xoV[Qz2u8<8-+Vwf2gzJ44lf_/y9OaQ`@#Q65{U4/TC)i2`~/M&QI$X>p:9I
 OSS'2{-)-4wBnVeg0S\O4Al@)uC[pD|+
X-Attribution: sb
From: Steven L Baur <steve@xemacs.org>
In-Reply-To: Adrian Aichner's message of "18 Jun 1997 20:52:33 +0200"
Mime-Version: 1.0 (generated by tm-edit 7.108)
Content-Type: text/plain; charset=US-ASCII
Date: 18 Jun 1997 12:05:18 -0700
Message-ID: <m2k9jrk9zl.fsf@altair.xemacs.org>
Lines: 22
X-Mailer: Gnus v5.4.58/XEmacs 20.3(beta8) - "Copenhagen"

Adrian Aichner <aichner@ecf.teradyne.com> writes:

> [Previous patch didn't work completely]

Oops, I missed one.  This goes on top of the last one and fixes a real
bug.

--- lisp/modes/arc-mode.el~	Wed Jun 18 10:17:45 1997
+++ lisp/modes/arc-mode.el	Wed Jun 18 12:01:52 1997
@@ -1350,7 +1350,7 @@
 			    (t nil)))
 	     (modestr (if mode (archive-int-to-mode mode) "??????????"))
 	     (fiddle  (and archive-zip-case-fiddle
-			   (not (not (memq creator '(0 2 4 5 9))))))
+			   (not (not (memq (char-int creator) '(0 2 4 5 9))))))
              (ifnname (if fiddle (downcase efnname) efnname))
              (text    (format "  %10s  %8d  %-11s  %-8s  %s"
 			      modestr

-- 
steve@calag.com baur
Unsolicited commercial e-mail will be billed at $250/message.

