aniani/irssi
1
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2025-01-03 14:56:47 -05:00
Code

Updated from scripts.irssi.org

Browse Source 
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@3037 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2002-12-01 22:40:44 +00:00 committed by cras
parent ad1136267f
commit 0e56d6ef0e
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
scripts/scriptassist.pl
View File

@ -6,7 +6,7 @@
use strict;
use vars qw($VERSION %IRSSI);
$VERSION = '2002112501';
$VERSION = '2002120101';
%IRSSI = (
authors => 'Stefan \'tommie\' Tomanek',
contact => 'stefan@pico.ruhr.de',
@ -1051,16 +1051,14 @@ sub sig_complete ($$$$$) {
my ($list, $window, $word, $linestart, $want_space) = @_;
return unless $linestart =~ /^.script(assist)? (install|rate|ratings|update|check|contact|info|autorun)/;
my @newlist;
my $str = $word;
foreach (@complist) {
#Irssi::print $_;
#Irssi::print "-".$word."-";
if ($_ =~ /^($word.*)?$/) {
#äIrssi::print "add";
if ($_ =~ /^(\Q$str\E.*)?$/) {
push @newlist, $_;
}
}
foreach (@{loaded_scripts()}) {
push @newlist, $_ if $_ =~ /^($word.*)?$/;
push @newlist, $_ if /^(\Q$str\E.*)?$/;
}
$want_space = 0;
push @$list, $_ foreach @newlist;