emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

feature/rcirc-update c300326 12/18: Add TAGMSG handler


From: Philip Kaludercic
Subject: feature/rcirc-update c300326 12/18: Add TAGMSG handler
Date: Thu, 10 Jun 2021 11:43:40 -0400 (EDT)

branch: feature/rcirc-update
commit c300326fa01cb9532e0399047a1ebdede5e2f65d
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>

    Add TAGMSG handler
    
    * rcirc.el (rcirc-handler-TAGMSG): Add new message handler
---
 lisp/net/rcirc.el | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el
index 12e1fc3..60cafd4 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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]