From: ueno <ueno>
Date: Sat, 19 Feb 2005 08:29:57 +0000 (+0000)
Subject: * riece-signal.el (riece-emit-signal): Use riece-funcall-ignore-errors.
X-Git-Tag: riece-1_0_8~31
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=0044c2822826870c053cafd63fe0941eceb911d4;p=elisp%2Friece.git

* 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))