X-Git-Url: https://cgit.sxemacs.org/?p=riece;a=blobdiff_plain;f=lisp%2Friece-signal.el;h=7fd6b53b7ef1d065f6ddf70094812e191deaca4e;hp=e9725804eab10fd987d0ba4c4bd91082925adcba;hb=a0b576c2225bad55b58b7646314c0194172a4742;hpb=1862e5558b8b7b2b909f7b2d4787b9c0f0b9f687

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