# HG changeset patch
# User devi
# Date 1140799415 -7200
# Node ID bdc1f02d3f87028025d29e61e70f30c36fedba95
# Parent  7fb205f2c5141bd97f0616c576b4576ec6ddb587
исправлена ошибка с подсказкой в приглашении

diff -r 7fb205f2c514 -r bdc1f02d3f87 l3-agent
--- a/l3-agent	Fri Feb 24 08:49:31 2006 +0200
+++ b/l3-agent	Fri Feb 24 18:43:35 2006 +0200
@@ -127,7 +127,6 @@
             next if ($diff->{"local_session_id"} 
                     && $cl->{"local_session_id"} 
                     && ($cl->{"local_session_id"} ne $diff->{"local_session_id"}));
-            print "diff of my session found\n";
 
             next if ($diff->{"day"} && $cl->{"day"} && ($cl->{"day"} ne $diff->{"day"}));
 
@@ -292,7 +291,8 @@
 
         $file =~ m@.*/(.*?)-.*@;
 
-        print "\n+- processing file $file\n" if $Config{"verbose"} =~/y/;
+        print "\n+- processing file $file\n|   " 
+            if $Config{"verbose"} =~/y/;
 
         my $tty = $1;
         my $first_pass = 1;
@@ -485,7 +485,7 @@
 
 
                 if ($Config{verbose} =~ /y/i) {
-                    print "\n|   " if $commandlines_loaded % 15 == 1;
+                    print "\n|   " if $commandlines_loaded % 5 == 1;
                     print " ",$cl{"last_command"};
                 }
 
diff -r 7fb205f2c514 -r bdc1f02d3f87 l3-frontend
--- a/l3-frontend	Fri Feb 24 08:49:31 2006 +0200
+++ b/l3-frontend	Fri Feb 24 18:43:35 2006 +0200
@@ -689,7 +689,7 @@
 
         my $cline;
         $prompt_hint = join ("
", map("$_=$cl->{$_}", grep (!/^output$/, sort(keys(%{$cl})))));
-        $cline = "<span title='$prompt_hint'>".$cl->{"prompt"}."</prompt>".$cl->{"cline"};
+        $cline = "<span title='$prompt_hint'>".$cl->{"prompt"}."</span>".$cl->{"cline"};
         $cline =~ s/\n//;
 
         $cline = "<span title='$hint' class='with_hint'>$cline</span>" if $hint;