jrd/irssi
1
0
Fork 0
forked from PsychoticNinja/irssi
Code Issues Pull Requests Projects Releases Wiki Activity

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