--- erc-match.el 2009-01-29 12:33:46.000000000 +0100 +++ erc-hacked.el 2008-03-08 20:16:33.000000000 +0100 @@ -1,3 +1,9 @@ +(defcustom erc-text-prematch-hook '() + "Hook run before any text matches begin" + :options '() + :group 'erc-match + :type 'hook) + (defun erc-match-message () "Mark certain keywords in a region. Use this defun with `erc-insert-modify-hook'." @@ -21,6 +27,9 @@ Use this defun with `erc-insert-modify-h (+ 2 nick-end) (point-min)) (point-max)))) + (progn (run-hook-with-args + 'erc-text-prematch-hook + nickname message) (when vector (mapc (lambda (match-type) @@ -95,4 +104,4 @@ Use this defun with `erc-insert-modify-h message)))) (if nickuserhost (append to-match-nick-dep to-match-nick-indep) - to-match-nick-indep))))) + to-match-nick-indep))))))