From: ueno <ueno>
Date: Sun, 7 Mar 2004 21:53:29 +0000 (+0000)
Subject: Fixed the last change.
X-Git-Tag: signal-slot-mergepoint~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=cad281c9b635dc14cd310bf85f1b8328fca6722a;p=elisp%2Friece.git

Fixed the last change.
---

diff --git a/lisp/riece-display.el b/lisp/riece-display.el
index 3ecbab0..c78d9e7 100644
--- a/lisp/riece-display.el
+++ b/lisp/riece-display.el
@@ -59,7 +59,11 @@ Local to the buffer in `riece-buffer-list'.")
    (lambda (signal handback)
      (save-excursion
        (set-buffer riece-user-list-buffer)
-       (run-hooks 'riece-update-buffer-functions))))
+       (run-hooks 'riece-update-buffer-functions)))
+   (lambda (signal)
+     (and riece-current-channel
+	  (riece-identity-equal (car (riece-signal-args signal))
+				riece-current-channel))))
   (riece-connect-signal
    'channel-switched
    (lambda (signal handback)
@@ -68,13 +72,13 @@ Local to the buffer in `riece-buffer-list'.")
      (riece-update-long-channel-indicator)
      (force-mode-line-update t)
      (riece-emit-signal 'channel-list-changed)
-     (riece-emit-signal 'user-list-changed)
+     (riece-emit-signal 'user-list-changed riece-current-channel)
      (save-excursion
        (riece-redraw-layout))))
   (riece-connect-signal
    'user-joined-channel
    (lambda (signal handback)
-     (riece-emit-signal 'user-list-changed))
+     (riece-emit-signal 'user-list-changed riece-current-channel))
    (lambda (signal)
      (and riece-current-channel
 	  (riece-identity-equal (nth 1 (riece-signal-args signal))
@@ -93,7 +97,7 @@ Local to the buffer in `riece-buffer-list'.")
   (riece-connect-signal
    'user-left-channel
    (lambda (signal handback)
-     (riece-emit-signal 'user-list-changed))
+     (riece-emit-signal 'user-list-changed riece-current-channel))
    (lambda (signal)
      (and riece-current-channel
 	  (riece-identity-equal (nth 1 (riece-signal-args signal))
@@ -110,7 +114,7 @@ Local to the buffer in `riece-buffer-list'.")
   (riece-connect-signal
    'user-renamed
    (lambda (signal handback)
-     (riece-emit-signal 'user-list-changed))
+     (riece-emit-signal 'user-list-changed riece-current-channel))
    (lambda (signal)
      (and riece-current-channel
 	  (equal (riece-identity-server (nth 1 (riece-signal-args signal)))
@@ -193,7 +197,7 @@ Local to the buffer in `riece-buffer-list'.")
   (riece-connect-signal
    'channel-operators-changed
    (lambda (signal handback)
-     (riece-emit-signal 'user-list-changed))
+     (riece-emit-signal 'user-list-changed riece-current-channel))
    (lambda (signal)
      (and riece-current-channel
 	  (riece-identity-equal (car (riece-signal-args signal))
@@ -201,7 +205,7 @@ Local to the buffer in `riece-buffer-list'.")
   (riece-connect-signal
    'channel-speakers-changed
    (lambda (signal handback)
-     (riece-emit-signal 'user-list-changed))
+     (riece-emit-signal 'user-list-changed riece-current-channel))
    (lambda (signal)
      (and riece-current-channel
 	  (riece-identity-equal (car (riece-signal-args signal))
diff --git a/lisp/riece-naming.el b/lisp/riece-naming.el
index e82fc91..97beb25 100644
--- a/lisp/riece-naming.el
+++ b/lisp/riece-naming.el
@@ -86,7 +86,8 @@
 			(cdr (car users)))
 		  user-identity-list)
 	    users (cdr users)))
-    (riece-emit-signal 'user-list-changed)))
+    (riece-emit-signal 'user-list-changed
+		       (riece-make-identity channel-name riece-server-name))))
 
 (provide 'riece-naming)