* riece-debug.el (riece-funcall-ignore-errors): New function.

[riece] / lisp / riece-ctcp.el

diff --git a/lisp/riece-ctcp.el b/lisp/riece-ctcp.el
index d7ffe6b..9bb7de3 100644 (file)
--- a/lisp/riece-ctcp.el
+++ b/lisp/riece-ctcp.el
@@ -77,8 +77,9 @@
                        (run-hook-with-args-until-success
                         hook prefix (car targets) message))
                (if function
-                   (riece-ignore-errors (symbol-name function)
-                     (funcall function prefix (car targets) message)))
+                   (riece--funcall-ignore-errors (symbol-name function)
+                                                 function prefix (car targets)
+                                                 message))
                (riece-ignore-errors (symbol-name after-hook)
                  (run-hook-with-args-until-success
                   after-hook prefix (car targets) message))))
@@ -222,8 +223,9 @@
                        (run-hook-with-args-until-success
                         hook prefix (car targets) message))
                (if function
-                   (riece-ignore-errors (symbol-name function)
-                     (funcall function prefix (car targets) message)))
+                   (riece-funcall-ignore-errors
+                    (symbol-name function)
+                    function prefix (car targets) message))
                (riece-ignore-errors (symbol-name after-hook)
                  (run-hook-with-args-until-success
                   after-hook prefix (car targets) message))))