Re: Patch for emacs-unicode-2

This is a multi-part message in MIME format.
--------------000508090705070504020405
Content-Type: text/plain; charset=ISO-8859-7; format=flowed
Content-Transfer-Encoding: quoted-printable

Thank you Matthias. Is the revised patch compatible with xemacs?

O/H Matthias Radestock =DD=E3=F1=E1=F8=E5:
>=20
> Unfortunately these functions are Gnu Emacs specific, so your patch=20
> would break XEmacs compatibility.
>=20
> Regards,
>=20
> Matthias
>=20


--------------000508090705070504020405
Content-Type: text/plain;
 name="patchV2.txt"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline;
 filename="patchV2.txt"

Index: elisp/derl.el
===================================================================
--- elisp/derl.el	(revision 45)
+++ elisp/derl.el	(working copy)
@@ -171,6 +171,11 @@
       (derl-send-challenge-reply challenge)
       (fsm-change-state #'derl-recv-challenge-ack))))
 
+(defun derl-string-make-unibyte (string)
+  (if (fboundp 'string-make-unibyte)
+      (string-make-unibyte string)
+    string))
+
 (defun derl-recv-challenge-ack (event data)
   "Receive and check challenge ack. If it's OK then the handshake is
 complete and we become live."
@@ -182,7 +187,7 @@
       (fsm-fail 'wrong-tag))
     (let ((digest (buffer-substring (point) (+ (point) 16))))
       (derl-eat-msg)
-      (if (equal (derl-gen-digest (string 0 0 0 42)) digest)
+      (if (equal (derl-string-make-unibyte (derl-gen-digest (string 0 0 0 42))) digest)
 	  (derl-go-live)
 	(fsm-fail)))))
 
Index: elisp/net-fsm.el
===================================================================
--- elisp/net-fsm.el	(revision 45)
+++ elisp/net-fsm.el	(working copy)
@@ -55,6 +55,8 @@
     (with-error-cleanup (kill-buffer buf)
       (let ((p (open-network-stream "netfsm" buf host port)))
 	(set-process-coding-system p 'no-conversion 'no-conversion)
+	(if (fboundp 'set-process-filter-multibyte)
+	  (set-process-filter-multibyte p nil))
 	p))))
 
 (defun fsm-connect (host port state0 &optional init-arg cont fail-cont buffer)

--------------000508090705070504020405
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

-------------------------------------------------------------------------
This SF.net email is sponsored by: Splunk Inc.
Still grepping through log files to find problems?  Stop.
Now Search log events and configuration files using AJAX and a browser.
Download your FREE copy of Splunk now >> http://get.splunk.com/
--------------000508090705070504020405
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

_______________________________________________
Distel-hackers mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/distel-hackers

--------------000508090705070504020405--