From xemacs-m  Wed Jun 11 13:57:48 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 NAA22774
	for <xemacs-beta@xemacs.org>; Wed, 11 Jun 1997 13:57:44 -0500 (CDT)
Received: (from steve@localhost)
	by altair.xemacs.org (8.8.5/8.8.5) id LAA14869;
	Wed, 11 Jun 1997 11:57:33 -0700
Mail-Copies-To: never
To: tm-en@chamonix.jaist.ac.jp
Cc: xemacs-beta@xemacs.org
Subject: [PATCH] Ebola Vaccination for tm/tm-ew-e.el
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>
Mime-Version: 1.0 (generated by tm-edit 7.108)
Content-Type: text/plain; charset=US-ASCII
Date: 11 Jun 1997 11:57:33 -0700
Message-ID: <m267vl6k82.fsf@altair.xemacs.org>
Lines: 46
X-Mailer: Gnus v5.4.56/XEmacs 20.3(beta6) - "Moscow"

If this code exists in SEMI it should be changed similarly.  This
patch is against the tm in XEmacs 20.3 beta.  (Ebola infection is
mixing characters and integers as if they were interchangeable).

1997-06-11  Steven L Baur  <steve@altair.xemacs.org>

	* tm/tm-ew-e.el: Clean up Ebola infection.

Index: tm-ew-e.el
===================================================================
RCS file: /usr/local/xemacs/xemacs-20.0/lisp/tm/tm-ew-e.el,v
retrieving revision 1.2
diff -u -r1.2 tm-ew-e.el
--- tm-ew-e.el	1997/02/15 22:21:29	1.2
+++ tm-ew-e.el	1997/06/11 18:52:43
@@ -120,7 +120,7 @@
 ;;;
 
 (defun tm-eword::char-type (chr)
-  (if (or (= chr 32)(= chr ?\t))
+  (if (or (= chr ?  )(= chr ?\t))
       nil
     (char-charset chr)
     ))
@@ -367,7 +367,7 @@
 		(setq ret (tm-eword::encode-string-1 2 rwl))
 		(setq str (car ret))
 		))
-	(cond ((eq special 32)
+	(cond ((eq special ? )
 	       (if (string= str "(")
 		   (setq ps t)
 		 (setq dest (concat dest " "))
@@ -383,7 +383,7 @@
 		 )
 	       )))
       (cond ((string= str " ")
-	     (setq special 32)
+	     (setq special ? )
 	     )
 	    ((string= str "(")
 	     (setq special ?\()

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

