From 78ae00910e0c10090ba0120ae5e74d88c120f499 Mon Sep 17 00:00:00 2001 From: vague666 Date: Wed, 15 May 2019 14:24:10 +0200 Subject: [PATCH] Make MSGLEVEL_HIDDEN accessible from scripts Empty line in wrong place Expose MSGLEVEL_HIDDEN to scripts --- src/perl/common/Core.xs | 7 +++++++ src/perl/common/Irssi.pm | 2 +- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/src/perl/common/Core.xs b/src/perl/common/Core.xs index 75b851d6..8e26f105 100644 --- a/src/perl/common/Core.xs +++ b/src/perl/common/Core.xs @@ -303,6 +303,13 @@ CODE: perl_source_remove(tag); # maybe there's some easier way than this..? :) +int +MSGLEVEL_HIDDEN() +CODE: + RETVAL = MSGLEVEL_HIDDEN; +OUTPUT: + RETVAL + int MSGLEVEL_CRAP() CODE: diff --git a/src/perl/common/Irssi.pm b/src/perl/common/Irssi.pm index 1d7ed2f3..786d0e52 100644 --- a/src/perl/common/Irssi.pm +++ b/src/perl/common/Irssi.pm @@ -142,7 +142,7 @@ require DynaLoader; MSGLEVEL_TOPICS MSGLEVEL_WALLOPS MSGLEVEL_INVITES MSGLEVEL_NICKS MSGLEVEL_DCC MSGLEVEL_DCCMSGS MSGLEVEL_CLIENTNOTICE MSGLEVEL_CLIENTCRAP MSGLEVEL_CLIENTERROR MSGLEVEL_HILIGHT MSGLEVEL_ALL MSGLEVEL_NOHILIGHT - MSGLEVEL_NO_ACT MSGLEVEL_NEVER MSGLEVEL_LASTLOG + MSGLEVEL_NO_ACT MSGLEVEL_NEVER MSGLEVEL_LASTLOG MSGLEVEL_HIDDEN ); my $static = 0;