diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/net/rcirc.el | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el index 12e1fc3b2e4..60cafd4dada 100644 --- a/lisp/net/rcirc.el +++ b/lisp/net/rcirc.el @@ -3322,6 +3322,14 @@ is the process object for the current connection." ;; All requested capabilities have been responded to (rcirc-send-string process "CAP" "END")))) +(defun rcirc-handler-TAGMSG (process sender _args _text) + "Handle a empty tag message from SENDER. +PROCESS is the process object for the current connection." + (dolist (tag rcirc-message-tags) + (when-let ((handler (intern-soft (concat "rcirc-tag-handler-" (car tag)))) + ((fboundp handler))) + (funcall handler process sender (cdr tag))))) + (defun rcirc-handler-BATCH (process _sender args _text) "Open or close a batch. ARGS should have the form (tag type . parameters) when starting a |