From: ueno <ueno>
Date: Thu, 4 Mar 2004 02:04:19 +0000 (+0000)
Subject: * riece-display.el (riece-emit-signal): Fixed bug that errors
X-Git-Tag: signal-slot-mergepoint~11
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d5ec83841d358b5fa65620d11a968075657f0a52;p=elisp%2Friece.git

* riece-display.el (riece-emit-signal): Fixed bug that errors
during signal filter execution were not caught.
(riece-display-connect-signals): Check riece-current-channel is set.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 924f32d..0cabf5c 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2004-03-04  Daiki Ueno  <ueno@unixuser.org>
+
+	* riece-display.el (riece-emit-signal): Fixed bug that errors
+	during signal filter execution were not caught.
+	(riece-display-connect-signals): Check riece-current-channel is set.
+
 2004-03-01  Daiki Ueno  <ueno@unixuser.org>
 
 	* riece-display.el (riece-display-connect-signals): Fixed bug in
diff --git a/lisp/riece-display.el b/lisp/riece-display.el
index 56a9222..1bb584f 100644
--- a/lisp/riece-display.el
+++ b/lisp/riece-display.el
@@ -107,10 +107,11 @@ This function is for internal use only."
 	    (if (or (null (riece-slot-filter (car slots)))
 		    (condition-case error
 			(funcall (riece-slot-filter (car slots)) signal)
-		      (if riece-debug
-			  (message
-			   "Error occurred in signal filter for \"%S\": %S"
-			   signal-name error))
+		      (error
+		       (if riece-debug
+			   (message
+			    "Error occurred in signal filter for \"%S\": %S"
+			    signal-name error)))
 		      nil))
 		(funcall (riece-slot-function (car slots))
 			 signal (riece-slot-handback (car slots))))
@@ -149,7 +150,8 @@ This function is for internal use only."
        (set-buffer riece-user-list-buffer)
        (run-hooks 'riece-update-buffer-functions)))
    (lambda (signal)
-     (and (riece-identity-equal (nth 1 (riece-signal-args signal))
+     (and riece-current-channel
+	  (riece-identity-equal (nth 1 (riece-signal-args signal))
 				riece-current-channel)
 	  (not (riece-identity-equal (car (riece-signal-args signal))
 				     (riece-current-nickname))))))
@@ -169,7 +171,8 @@ This function is for internal use only."
        (set-buffer riece-user-list-buffer)
        (run-hooks 'riece-update-buffer-functions)))
    (lambda (signal)
-     (and (riece-identity-equal (nth 1 (riece-signal-args signal))
+     (and riece-current-channel
+	  (riece-identity-equal (nth 1 (riece-signal-args signal))
 				riece-current-channel)
 	  (not (riece-identity-equal (car (riece-signal-args signal))
 				     (riece-current-nickname))))))
@@ -187,7 +190,8 @@ This function is for internal use only."
        (set-buffer riece-user-list-buffer)
        (run-hooks 'riece-update-buffer-functions)))
    (lambda (signal)
-     (and (equal (riece-identity-server (nth 1 (riece-signal-args signal)))
+     (and riece-current-channel
+	  (equal (riece-identity-server (nth 1 (riece-signal-args signal)))
 		 (riece-identity-server riece-current-channel))
 	  (riece-with-server-buffer (riece-identity-server
 				     riece-current-channel)
@@ -210,8 +214,9 @@ This function is for internal use only."
    (lambda (signal handback)
      (riece-switch-to-channel (nth 1 (riece-signal-args signal))))
    (lambda (signal)
-     (riece-identity-equal (car (riece-signal-args signal))
-			   riece-current-channel)))
+     (and riece-current-channel
+	  (riece-identity-equal (car (riece-signal-args signal))
+				riece-current-channel))))
   (riece-connect-signal
    'riece-user-toggle-away
    (lambda (signal handback)
@@ -234,16 +239,18 @@ This function is for internal use only."
      (riece-update-long-channel-indicator)
      (force-mode-line-update t))
    (lambda (signal)
-     (riece-identity-equal (car (riece-signal-args signal))
-			   riece-current-channel)))
+     (and riece-current-channel
+	  (riece-identity-equal (car (riece-signal-args signal))
+				riece-current-channel))))
   (riece-connect-signal
    'riece-channel-toggle-modes
    (lambda (signal handback)
      (riece-update-status-indicators)
      (force-mode-line-update t))
    (lambda (signal)
-     (riece-identity-equal (car (riece-signal-args signal))
-			   riece-current-channel)))
+     (and riece-current-channel
+	  (riece-identity-equal (car (riece-signal-args signal))
+				riece-current-channel))))
   (riece-connect-signal
    'riece-channel-toggle-operator
    (lambda (signal handback)
@@ -251,8 +258,9 @@ This function is for internal use only."
        (set-buffer riece-user-list-buffer)
        (run-hooks 'riece-update-buffer-functions)))
    (lambda (signal)
-     (riece-identity-equal (car (riece-signal-args signal))
-			   riece-current-channel)))
+     (and riece-current-channel
+	  (riece-identity-equal (car (riece-signal-args signal))
+				riece-current-channel))))
   (riece-connect-signal
    'riece-channel-toggle-speaker
    (lambda (signal handback)
@@ -260,8 +268,9 @@ This function is for internal use only."
        (set-buffer riece-user-list-buffer)
        (run-hooks 'riece-update-buffer-functions)))
    (lambda (signal)
-     (riece-identity-equal (car (riece-signal-args signal))
-			   riece-current-channel)))
+     (and riece-current-channel
+	  (riece-identity-equal (car (riece-signal-args signal))
+				riece-current-channel))))
   (riece-connect-signal
    'riece-buffer-toggle-freeze
    (lambda (signal handback)