* 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 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,7 +1,10 @@
 2005-02-07  Daiki Ueno  <ueno@unixuser.org>
 
 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.
        (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 (file)
--- a/lisp/riece-filter.el
+++ b/lisp/riece-filter.el
@@ -30,8 +30,6 @@
 (require 'riece-identity)
 (require 'riece-debug)
 
 (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)
 (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 (file)
--- 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-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
 
 ;;; 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 (file)
--- 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-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)))
 
     (buffer-disable-undo)
     (erase-buffer)))