From: Daiki Ueno <ueno@unixuser.org>
Date: Sat, 19 Feb 2005 08:29:57 +0000 (+0000)
Subject: * riece-signal.el (riece-emit-signal): Use riece-funcall-ignore-errors.
X-Git-Url: https://cgit.sxemacs.org/?p=riece;a=commitdiff_plain;h=931b92d9f4bcd89ba96f8e31b9e3b9530d85fe73;hp=1862e5558b8b7b2b909f7b2d4787b9c0f0b9f687

* riece-signal.el (riece-emit-signal): Use riece-funcall-ignore-errors.
---

diff --git a/lisp/riece-signal.el b/lisp/riece-signal.el
index e972580..7fd6b53 100644
--- a/lisp/riece-signal.el
+++ b/lisp/riece-signal.el
@@ -105,9 +105,10 @@ This function is for internal use only."
 	    slots (symbol-value symbol))
       (while slots
 	(if (or (null (riece-slot-filter (car slots)))
-		(riece-ignore-errors (format "signal filter for \"%S\""
-					     signal-name)
-		  (funcall (riece-slot-filter (car slots)) signal)))
+		(riece-funcall-ignore-errors (format "signal filter for \"%S\""
+						     signal-name)
+					     (riece-slot-filter (car slots))
+					     signal))
 	    (riece-funcall-ignore-errors (format "slot function for \"%S\""
 						 signal-name)
 					 (riece-slot-function (car slots))