X-Git-Url: http://cgit.sxemacs.org/?p=riece;a=blobdiff_plain;f=lisp%2Friece-signal.el;h=7fd6b53b7ef1d065f6ddf70094812e191deaca4e;hp=844c3ccc659b30ffff19cae968b98db1bf48f97d;hb=353a035762d1006943b0432e9b6aa1854de9ec13;hpb=73717b16f25f06d32f14e46e804df2b24a6065f6

diff --git a/lisp/riece-signal.el b/lisp/riece-signal.el
index 844c3cc..7fd6b53 100644
--- a/lisp/riece-signal.el
+++ b/lisp/riece-signal.el
@@ -104,14 +104,16 @@ This function is for internal use only."
       (setq signal (riece-make-signal signal-name args)
 	    slots (symbol-value symbol))
       (while slots
-	(riece-ignore-errors (format "slot function for \"%S\""
-				     signal-name)
-	  (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)))
-	      (funcall (riece-slot-function (car slots))
-		       signal (riece-slot-handback (car slots)))))
+	(if (or (null (riece-slot-filter (car slots)))
+		(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))
+					 signal
+					 (riece-slot-handback (car slots))))
 	(setq slots (cdr slots))))))
 
 (provide 'riece-signal)