From f2f5fec091e751b1f90dfe02444c01bfee5856d6 Mon Sep 17 00:00:00 2001
From: ailin-nemui <ailin-nemui@users.noreply.github.com>
Date: Fri, 15 May 2020 00:48:49 +0200
Subject: [PATCH] add Irssi::UI::TextDest->set_level($bits) to change the level
  of a "print (no)format" or "print text" in the old code

---
 src/perl/ui/Formats.xs | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/src/perl/ui/Formats.xs b/src/perl/ui/Formats.xs
index 8e34b7b9..9e5ce0c2 100644
--- a/src/perl/ui/Formats.xs
+++ b/src/perl/ui/Formats.xs
@@ -137,3 +137,11 @@ print(dest, str)
 	char *str
 CODE:
 	printtext_dest(dest, "%s", str);
+
+void
+set_level(dest, level)
+	Irssi::UI::TextDest dest
+	int level
+CODE:
+	dest->level = level;
+