From: ueno <ueno>
Date: Fri, 27 Feb 2004 09:27:39 +0000 (+0000)
Subject: * riece-message.el (riece-display-message-1): Emit
X-Git-Tag: signal-slot-mergepoint~17
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c68b2d0d7b8829d8c25511793cb680820bc44a0d;p=elisp%2Friece.git

* riece-message.el (riece-display-message-1): Emit
'riece-buffer-toggle-freeze signal.

* riece-commands.el (riece-command-toggle-freeze): Emit
'riece-buffer-toggle-freeze signal; don't update status indicators
manually.
(riece-command-toggle-own-freeze): Ditto.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a092dc1..9c77a75 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,13 @@
 2004-02-27  Daiki Ueno  <ueno@unixuser.org>
 
+	* riece-message.el (riece-display-message-1): Emit
+	'riece-buffer-toggle-freeze signal.
+
+	* riece-commands.el (riece-command-toggle-freeze): Emit
+	'riece-buffer-toggle-freeze signal; don't update status indicators
+	manually.
+	(riece-command-toggle-own-freeze): Ditto.
+	
 	* riece-naming.el (riece-naming-assert-join): Rename signal 'join
 	-> 'riece-naming-assert-join.
 	(riece-naming-assert-part): Rename signal 'part ->
diff --git a/lisp/riece-commands.el b/lisp/riece-commands.el
index 3b3561d..e5081dc 100644
--- a/lisp/riece-commands.el
+++ b/lisp/riece-commands.el
@@ -558,9 +558,9 @@ If prefix argument ARG is non-nil, toggle frozen status."
 			 riece-dialogue-buffer)
     (setq riece-freeze (if arg
 			   (< 0 (prefix-numeric-value arg))
-			 (not riece-freeze))))
-  (riece-update-status-indicators)
-  (force-mode-line-update t))
+			 (not riece-freeze)))
+    (riece-emit-signal (riece-make-signal 'riece-buffer-toggle-freeze
+					  (current-buffer) riece-freeze))))
 
 (defun riece-command-toggle-own-freeze (&optional arg)
   "Prevent automatic scrolling of the dialogue window.
@@ -576,8 +576,8 @@ If prefix argument ARG is non-nil, toggle frozen status."
 	  (not (eq riece-freeze 'own)))
 	(setq riece-freeze 'own)
       (setq riece-freeze nil)))
-  (riece-update-status-indicators)
-  (force-mode-line-update t))
+  (riece-emit-signal (riece-make-signal 'riece-buffer-toggle-freeze
+					(current-buffer) riece-freeze)))
 
 (eval-when-compile
   (autoload 'riece-exit "riece"))
diff --git a/lisp/riece-display.el b/lisp/riece-display.el
index 91afbaa..6b15a21 100644
--- a/lisp/riece-display.el
+++ b/lisp/riece-display.el
@@ -192,7 +192,7 @@ are the data of the signal."
      (riece-update-status-indicators)
      (force-mode-line-update t))
    (lambda (signal)
-     (riece-identity-equal (nth 1 (riece-signal-args signal))
+     (riece-identity-equal (car (riece-signal-args signal))
 			   (riece-current-nickname))))
   (riece-connect-signal
    'riece-user-toggle-operator
@@ -200,7 +200,7 @@ are the data of the signal."
      (riece-update-status-indicators)
      (force-mode-line-update t))
    (lambda (signal)
-     (riece-identity-equal (nth 1 (riece-signal-args signal))
+     (riece-identity-equal (car (riece-signal-args signal))
 			   (riece-current-nickname))))
   (riece-connect-signal
    'riece-channel-set-topic
diff --git a/lisp/riece-message.el b/lisp/riece-message.el
index 4105e77..ead3ca7 100644
--- a/lisp/riece-message.el
+++ b/lisp/riece-message.el
@@ -159,7 +159,8 @@ Normally they are *Dialogue* and/or *Others*."
 	       (riece-own-frozen buffer))
       (with-current-buffer buffer
 	(setq riece-freeze nil))
-      (riece-update-status-indicators))
+      (riece-emit-signal (riece-make-signal 'riece-buffer-toggle-freeze
+					    buffer nil)))
     (setq parent-buffers (riece-message-parent-buffers message buffer))
     (riece-insert buffer
 		  (concat open-bracket name close-bracket