* liece-xemacs.el (liece-xemacs-modeline-glyph): Add 'xpm check.
[elisp/liece.git] / lisp / liece-ctcp.el
index ec97b2b..1a0b605 100644 (file)
          after-hook
          (intern-soft
           (concat "liece-after-ctcp-" message "-hook")))
-    (if (condition-case nil
-           (run-hook-with-args-until-success hook from chnl data)
-         (error nil))
+    (if (run-hook-with-args-until-success hook from chnl data)
        (return-from liece-ctcp-message rest))
     (let ((func
           (liece-handler-find-function
       (if func
          (funcall func from chnl data)
        (liece-ctcp-messages message from chnl data))
-      (ignore-errors (run-hook-with-args after-hook from chnl data)))
+      (run-hook-with-args after-hook from chnl data))
     rest))
 
 (defun liece-ctcp-messages (message from chnl rest)
          after-hook
          (intern-soft
           (concat "liece-after-ctcp-" message "-notice-hook")))
-    (if (condition-case nil
-           (run-hook-with-args-until-success hook prefix data)
-         (error nil))
+    (if (run-hook-with-args-until-success hook prefix data)
        (return-from liece-ctcp-notice rest))
     (let ((func
           (liece-handler-find-function
       (if func
          (funcall func prefix data)
        (liece-ctcp-notices message prefix data)))
-    (ignore-errors (run-hook-with-args after-hook prefix data))
+    (run-hook-with-args after-hook prefix data)
     rest))
 
 (defun liece-ctcp-notices (message prefix rest)
             (intern-soft
              (concat "liece-after-file-" message "-hook")))
            func)
-       (if (condition-case nil
-               (run-hook-with-args-until-success hook prefix name)
-             (error nil))
+       (if (run-hook-with-args-until-success hook prefix name)
            (return-from liece-ctcp-file-notice))
        (setq func (liece-handler-find-function
                    message '(prefix name data) 'ctcp-file))
        (if func
            (funcall func prefix name data)
          (liece-file-notices message prefix name data))
-       (ignore-errors (run-hook-with-args after-hook prefix name))))))
+       (run-hook-with-args after-hook prefix name)))))
 
 (defun liece-file-notices (message prefix name data)
   (liece-message