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