zenicb.el & xemacs 20

[Thomas Graichen <graichen@rzpd.de>]

a lot of thanks to

  Andrew J Cosgriff <Andrew.Cosgriff@cc.monash.edu.au>

who has found a solution for my zenicb problem (zenicb.el didn't work
with xemacs 20 - now it does :-)

--- zenicb-old.el	Mon Jul 14 13:17:59 1997
+++ zenicb.el	Mon Jul 14 13:18:16 1997
@@ -200,8 +200,12 @@
       (set-buffer orig-buffer)
       (store-match-data data))))
 
+(if (not (fboundp 'char-int))
+	 (defun char-int (a)
+	   a))
+
 (defun zenicb-parselines (proc string)
-  (while (let ((length (aref string 0)))
+  (while (let ((length (char-int (aref string 0))))
 	   (and (> (length string) length)
 		(let ((type (aref string 1))
 		      (line (substring string 2 length)))


t

-- 
  thomas graichen - graichen@rzpd.de graichen@OpenBSD.org graichen@FreeBSD.org

  perfection is reached, not when there is no longer anything to add, but when
      there is no longer anything to take away    antoine de saint-exupery