(require 'riece-version)
(require 'riece-misc)
(require 'riece-highlight)
+(require 'riece-display)
(defface riece-ctcp-action-face
'((((class color)
hook prefix (car targets) message)
(error
(if riece-debug
- (message "Error occurred in `%S': %S" hook error))
+ (message "Error in `%S': %S" hook error))
nil))
(if function
(condition-case error
(funcall function prefix (car targets) message)
(error
(if riece-debug
- (message "Error occurred in `%S': %S"
+ (message "Error in `%S': %S"
function error))))))
(condition-case error
(run-hook-with-args-until-success
after-hook prefix (car targets) message)
(error
(if riece-debug
- (message "Error occurred in `%S': %S"
+ (message "Error in `%S': %S"
after-hook error)))))
t)))))
hook prefix (car targets) message)
(error
(if riece-debug
- (message "Error occurred in `%S': %S" hook error))
+ (message "Error in `%S': %S" hook error))
nil))
(if function
(condition-case error
(funcall function prefix (car targets) message)
(error
(if riece-debug
- (message "Error occurred in `%S': %S"
+ (message "Error in `%S': %S"
function error))))))
(condition-case error
(run-hook-with-args-until-success
after-hook prefix (car targets) message)
(error
(if riece-debug
- (message "Error occurred in `%S': %S"
+ (message "Error in `%S': %S"
after-hook error)))))
t)))))