[PATCH 1/6] make emacs handle the file

[Junichi Uekawa]

---
 trunk/DDTSS.pm |   11 +++++++++++
 1 files changed, 11 insertions(+), 0 deletions(-)

diff --git a/trunk/DDTSS.pm b/trunk/DDTSS.pm
index 48bee84..f4dd825 100644
--- a/trunk/DDTSS.pm
+++ b/trunk/DDTSS.pm
@@ -106,6 +106,7 @@ sub DDTSS_Get_ForReview
     if( $db->get("$lang/packages/$package/reviewers", $reviewers) == 0 )
     {
       @r = split /,/, $reviewers;
+      # / -- for emacs
     }
     my $c = scalar(@r);
     my $reviewable = 0;
@@ -200,6 +201,7 @@ sub DDTSS_Unlock
   if( $db->get( "lock/$key", $field ) == 0 )
   {
     my ($lockuser,$locktime) = split /,/, $field;
+    # / -- for emacs
     if( $lockuser eq $user )
     {
       $db->del( "lock/$key" );
@@ -347,6 +349,7 @@ sub DDTSS_Check_Valid_Language
   my $langs;
   $db->get("langs", $langs);
   my @langs = split /,/,$langs;
+  # / -- for emacs
   
   if( scalar( grep { $_ eq $lang } @langs ) )
   { return 1 }
@@ -464,6 +467,8 @@ sub DDTSS_Reparent_Owners
       return unless $value =~ /$oldid/;
       
       my @r = split /,/,$value;
+      # / -- for emacs
+
       my %h = map { ($_ eq $oldid)?($newid => 1):($_ => 1) } @r;
       
       my $newvalue = join(",", keys %h);
@@ -508,6 +513,8 @@ sub process_incoming
   $db->get("langs", $langs);
   
   my @langs = split /,/,$langs;
+  # / -- for emacs
+
   my( %queue, %min );
   
   for my $lang (@langs)
@@ -677,6 +684,7 @@ sub process_reviewed
   }
   
   my @langs = split /,/,$langs;
+  # / -- for emacs
   
   for my $lang (@langs)
   {
@@ -698,6 +706,7 @@ sub process_reviewed
           my $timestamp = 0; # timestamp of package
           my $t = 0;         # Time delay bonus
           my $r = scalar( @a=split /,/,$reviewers );  # Number of reviewers
+          # / -- for emacs
           
           $db->get("$lang/packages/$package/timestamp", $timestamp);
           if( $timestamp > 0 )
@@ -865,6 +874,8 @@ sub process_data
     my $prios = "";
     $db->get("$lang/scores", $prios);
     my @prios = split /,/, $prios;
+    # / -- for emacs
+
     unshift @prios, $prio;
     if( scalar(@prios) > 5 )
     { splice @prios, 5 }
-- 
1.6.3.1


--Multipart_Tue_Jun_23_08:32:41_2009-1
Content-Type: text/plain; charset=US-ASCII



--Multipart_Tue_Jun_23_08:32:41_2009-1
Content-Type: application/octet-stream; type=patch
Content-Disposition: attachment; filename="0002-help-emacs.patch"
Content-Transfer-Encoding: 7bit