up abi

of a "print (no)format" or "print text" in the old code

src/common.h

@@ -6,7 +6,7 @@
 #define IRSSI_GLOBAL_CONFIG "irssi.conf" /* config file name in /etc/ */
 #define IRSSI_HOME_CONFIG "config" /* config file name in ~/.irssi/ */
 
-#define IRSSI_ABI_VERSION 29
+#define IRSSI_ABI_VERSION 30
 
 #define DEFAULT_SERVER_ADD_PORT 6667
 #define DEFAULT_SERVER_ADD_TLS_PORT 6697

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;
+