From xemacs-m  Thu Jun  5 01:19:01 1997
Received: from mikan.jaist.ac.jp (mikan.jaist.ac.jp [150.65.8.6])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id BAA25732
	for <xemacs-beta@xemacs.org>; Thu, 5 Jun 1997 01:18:53 -0500 (CDT)
Received: from mousai.jaist.ac.jp.jaist.ac.jp (MORIOKA Tomohiko <morioka@jaist.ac.jp>) by mikan.jaist.ac.jp (8.7.5); id PAA16896; Thu, 5 Jun 1997 15:18:50 +0900 (JST)
To: xemacs-beta@xemacs.org
Subject: Re: Porting to Mule
References: <kigk9k9617z.fsf@jagor.srce.hr>
From: morioka@jaist.ac.jp (=?ISO-2022-JP?B?GyRCPGkyLBsoQiAbJEJDTkknGyhC?= /
 MORIOKA Tomohiko)
Organization: JAIST, Hokuriku / =?ISO-2022-JP?B?GyRCS0xOJkBoQzwySjNYGyhC?=
  =?ISO-2022-JP?B?GyRCNTs9UUJnM1gxIUJnM1gbKEI=?=
X-MUA: gnus-mime 0.22 (for SEMI), SEMI MIME-View 0.91
X-Face: %yc?f+O/cVKlH*K(H2X/6-d''suf|"1{S:Y0}_9$t@0G3:5M2:-Ck^[8+4^iSLeGc[Ey[WP
 PF]2M#Q9C'u~[=7TJP72J`PZdWvP=s-'-/LhFneC->=ILc~H#$lf2%hLL5U8?psIp`<[>d&@$Pm%~(
 A'"CJ.zuX@TXh\Ra4,b7M&`f"hexU-a4,#X\]Bfp'JI+MGUDRA%_$&UnWAem4}1R"4%uivgn;xFZ%"
 NS>)eCuFYNHc/:W^:{7H>bGQS],x5z[Cy~C;7j#:8y9q|"~9~UWjE<Vm_;)o<Q4S5NweLc(cl7-suY
 NF|_O*xodbmQavM
X-Emacs: 20.3 XEmacs Lucid (beta3) with mule
Mime-Version: 1.0 (generated by SEMI MIME-Edit 0.82)
Content-Type: text/plain; charset=US-ASCII
Date: 05 Jun 1997 15:19:33 +0900
In-Reply-To: Hrvoje Niksic's message of 05 Jun 1997 07:57:36 +0200
Message-ID: <s1craehh8qy.fsf@mousai.jaist.ac.jp>
Lines: 23
X-Mailer: Gnus v5.4.53 with SEMI patch/XEmacs 20.3(beta3)

>>>>> In <kigk9k9617z.fsf@jagor.srce.hr> 
>>>>>	"Hrv" = Hrvoje Niksic <hniksic@srce.hr> wrote:

Hrv> Will this code from htmlize.el work under Mule?

Hrv> (defvar htmlize-character-table
Hrv>   (let ((table (make-vector 256 ?\0)))
Hrv>     (dotimes (i 256)
Hrv>       (setf (aref table i) (char-to-string i)))
Hrv>     (setf (aref table ?&) "&amp;"
Hrv> 	  (aref table ?<) "&lt;"
Hrv> 	  (aref table ?>) "&gt;"
Hrv> 	  (aref table ?\") "&quot;")
Hrv>     table))

Hrv> (defun htmlize-protect (string)
Hrv>   (mapconcat (lambda (char)
Hrv> 	       (aref htmlize-character-table char))
Hrv> 	     string ""))

  Yes, it works in Emacs/mule and XEmacs/mule.
-- 
tomo.

