From: ueno <ueno>
Date: Mon, 7 Feb 2005 03:24:06 +0000 (+0000)
Subject: * riece-server.el (riece-reset-process-buffer): Reset
X-Git-Tag: riece-1_0_7b~4
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=08f5d977ef2229f4679725880d17605645ca2eee;p=elisp%2Friece.git

* riece-server.el (riece-reset-process-buffer): Reset
riece-filter-semaphore.
* riece-globals.el (riece-filter-semaphore): Define here.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d742783..ee2c9ea 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,7 +1,10 @@
 2005-02-07  Daiki Ueno  <ueno@unixuser.org>
 
-	* riece-filter.el (riece-filter-semaphore): New variable.
-	(riece-get-semaphore): New function.
+	* riece-server.el (riece-reset-process-buffer): Reset
+	riece-filter-semaphore.
+	* riece-globals.el (riece-filter-semaphore): Define here.
+
+	* riece-filter.el (riece-get-semaphore): New function.
 	(riece-release-semaphore): New function.
 	(riece-filter-with-semaphore): New macro.
 	(riece-filter): Use it.
diff --git a/lisp/riece-filter.el b/lisp/riece-filter.el
index 7fed41d..cf32989 100644
--- a/lisp/riece-filter.el
+++ b/lisp/riece-filter.el
@@ -30,8 +30,6 @@
 (require 'riece-identity)
 (require 'riece-debug)
 
-(defvar riece-filter-semaphore '(nil))
-
 (defun riece-handle-numeric-reply (prefix number name string)
   (let ((base-number (* (/ number 100) 100))
 	function)
diff --git a/lisp/riece-globals.el b/lisp/riece-globals.el
index a4addfa..dbbd8d2 100644
--- a/lisp/riece-globals.el
+++ b/lisp/riece-globals.el
@@ -123,6 +123,9 @@ Local to the server buffers.")
 (defvar riece-coding-system nil
   "Coding system for process I/O.
 Local to the server buffers.")
+(defvar riece-filter-semaphore nil
+  "Semaphore for riece-filter.
+Local to the server buffers.")
 
 ;;; Variables local to the channel buffers:
 (defvar riece-freeze nil
diff --git a/lisp/riece-server.el b/lisp/riece-server.el
index 39c1610..2323ddd 100644
--- a/lisp/riece-server.el
+++ b/lisp/riece-server.el
@@ -262,6 +262,8 @@ the `riece-server-keyword-map' variable."
     (make-local-variable 'riece-obarray)
     (setq riece-obarray (make-vector riece-obarray-size 0))
     (make-local-variable 'riece-coding-system)
+    (make-local-variable 'riece-filter-semaphore)
+    (setq riece-filter-semaphore '(nil))
     (buffer-disable-undo)
     (erase-buffer)))