diff options
Diffstat (limited to 'chat/zenicb/patches/patch-aa')
-rw-r--r-- | chat/zenicb/patches/patch-aa | 29 |
1 files changed, 22 insertions, 7 deletions
diff --git a/chat/zenicb/patches/patch-aa b/chat/zenicb/patches/patch-aa index ace1d9783e6..ac417684a3e 100644 --- a/chat/zenicb/patches/patch-aa +++ b/chat/zenicb/patches/patch-aa @@ -1,8 +1,8 @@ -$NetBSD: patch-aa,v 1.2 2001/11/02 10:56:03 martin Exp $ +$NetBSD: patch-aa,v 1.3 2003/10/10 14:13:29 uebayasi Exp $ ---- src/zenicb.el.orig Mon Jul 20 00:37:51 1998 -+++ src/zenicb.el Fri Nov 2 11:50:08 2001 -@@ -143,6 +143,7 @@ +--- src/zenicb.el.orig Mon Jul 20 07:37:51 1998 ++++ src/zenicb.el +@@ -143,6 +143,7 @@ line separately.") ;(defvar zenicb-command-bcount-hook 'zenicb-command-bcount) ; byte count (defvar zenicb-command-beep-hook 'zenicb-command-beep) ; beep someone (defvar zenicb-command-boot-hook 'zenicb-command-boot) ; boot off group @@ -10,16 +10,31 @@ $NetBSD: patch-aa,v 1.2 2001/11/02 10:56:03 martin Exp $ (defvar zenicb-command-cancel-hook 'zenicb-command-cancel) ; cancel invite (defvar zenicb-command-drop-hook 'zenicb-command-drop) ; drop nick (defvar zenicb-command-echo-hook 'zenicb-command-echo) ; echoback -@@ -211,6 +212,8 @@ +@@ -211,6 +212,9 @@ line separately.") (if (not zenicb-process) () (set-marker (process-mark zenicb-process) (point-max)) + (if (fboundp 'set-buffer-multibyte) (set-buffer-multibyte nil)) -+ (set-process-coding-system zenicb-process nil nil) ++ (if (fboundp 'set-process-coding-system) ++ (set-process-coding-system zenicb-process 'binary 'binary)) (set-process-buffer zenicb-process zenicb-buffer) (set-process-filter zenicb-process 'zenicb-filter) (set-process-sentinel zenicb-process 'zenicb-sentinel) -@@ -753,6 +756,12 @@ +@@ -279,8 +283,12 @@ line separately.") + (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))) +@@ -753,6 +761,12 @@ list of hooks to run in HOOK, then nothi ;; (defun zenicb-command-boot (proc parsedcmd) (zenicb-send-string proc ?h (concat "boot\C-a" (cdr parsedcmd)))) |