From xemacs-m  Thu Jun  5 00:57:38 1997
Received: from jagor.srce.hr (hniksic@jagor.srce.hr [161.53.2.130])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id AAA24393
	for <xemacs-beta@xemacs.org>; Thu, 5 Jun 1997 00:57:37 -0500 (CDT)
Received: (from hniksic@localhost)
          by jagor.srce.hr (8.8.5/8.8.4)
	  id HAA08117; Thu, 5 Jun 1997 07:57:37 +0200 (MET DST)
To: XEmacs Developers <xemacs-beta@xemacs.org>
Subject: Porting to Mule
X-Attribution: Hrv
X-Face: Mie8:rOV<\c/~z{s.X4A{!?vY7{drJ([U]0O=W/<W*SMo/Mv:58:*_y~ki>xDi&N7XG
        KV^$k0m3Oe/)'e%3=$PCR&3ITUXH,cK>]bci&<qQ>Ff%x_>1`T(+M2Gg/fgndU%k*ft
        [(7._6e0n-V%|%'[c|q:;}td$#INd+;?!-V=c8Pqf}3J
From: Hrvoje Niksic <hniksic@srce.hr>
Date: 05 Jun 1997 07:57:36 +0200
Message-ID: <kigk9k9617z.fsf@jagor.srce.hr>
Lines: 28
X-Mailer: Gnus v5.4.52/XEmacs 20.3(beta3)

Will this code from htmlize.el work under Mule?

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

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


Now, I'm quite certain that it will fail with any Mule characters
present in STRING (as passed to `htmlize-protect'), but I am mostly at
0-255 range, and this seemed like the simplest solution to support
XEmacs 19, Emacs 19, XEmacs 20 and Emacs 20.

-- 
Hrvoje Niksic <hniksic@srce.hr> | Student at FER Zagreb, Croatia
--------------------------------+--------------------------------
* Vi is the God of editors.
* Emacs is the editor of Gods.

