From: Philip Kaludercic <philipk@posteo.net>
Date: Wed, 9 Jun 2021 16:44:55 +0000 (+0200)
Subject: Add TAGMSG handler
X-Git-Tag: emacs-28.0.90~1748^2~26
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c300326fa01cb9532e0399047a1ebdede5e2f65d;p=emacs.git

Add TAGMSG handler

* rcirc.el (rcirc-handler-TAGMSG): Add new message handler
---

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