- (if (memq 'riece-highlight riece-addons)
- (put-text-property (match-beginning (cdr (car alist)))
- (match-end (cdr (car alist)))
- 'riece-keyword t
- (riece-message-text message)))
- (save-match-data
- (run-hook-with-args 'riece-notify-keyword-functions
- (match-string (cdr (car alist))
- (riece-message-text message))))
+ (put-text-property (match-beginning (cdr (car alist)))
+ (match-end (cdr (car alist)))
+ 'riece-overlay-face riece-keyword-face
+ (riece-message-text message))
+ (run-hook-with-args 'riece-notify-keyword-functions
+ (match-string (cdr (car alist))
+ (riece-message-text message)))
+ (run-hook-with-args 'riece-keyword-notify-functions
+ (cdr (car alist))
+ message)