*** empty log message ***

diff --git a/Changes b/Changes
index 67929f2..849abcd 100644 (file)
--- a/Changes
+++ b/Changes
@@ -25,19 +25,20 @@ TODO: document -blr units, and possibly fix blur (20 seems to be about 3 pixels,
 TODO: when window partially off-screen, -blr does not have any effect anymore.
 TODO: rid of global dpy variable.
 8.
+        - go with the times and expect x11 library files in /usr/lib, not
+          /usr/X11R6/lib.
        - initial transparency improvement/afterstep support
           patch by Sasha Vasko.
-       - nuke reconf script, serves no purpose anymore.
-        - do not process focus events caused by grabs
-          (patch by Mikachu).
-        - better option handling, support more than 30 options (exg).
         - add urgentOnBell resource to set the urgency hint
           (patch by Philip Paeps).
+        - do not process focus events caused by grabs
+          (patch by Mikachu).
+        - add iso14755_52 resource to disable iso14755 5.2.
         - add binding for backspace in iso14755 5.1 to remove the last
           digit.
-        - go with the times and expect x11 library files in /usr/lib, not
-          /usr/X11R6/lib.
-        - add iso14755_52 resource to disable iso14755 5.2.
+        - better option handling, support more than 30 options (exg).
+       - nuke reconf script, serves no purpose anymore.
+        - disabled matcher/on_user_command processing in matcher extension.
 
 8.2  Sat Feb 17 21:35:28 CET 2007
        - fix make depend in src/, reported by exg.

diff --git a/src/perl/matcher b/src/perl/matcher
index 81a8371..a440daf 100644 (file)
--- a/src/perl/matcher
+++ b/src/perl/matcher
@@ -12,33 +12,33 @@ my $url =
       )+
    }x;
 
-sub on_user_command {
-   my ($self, $cmd) = @_;
-   if($cmd =~ s/^matcher\b//) {
-      $self->most_recent;
-   }
-   my $row = $self->nrow;
-   my @exec;
-   while($row-- > $self->top_row) {
-      #my $line = $self->line ($row);
-      #my $text = $line->t;
-      @exec = $self->command_for($row);
-      last if(@exec);
-   }
-   if(@exec) {
-      return $self->exec_async (@exec);
-   }
-   ()
-}
-
-sub most_recent {
-   my ($self) = shift;
-   ()
-}
+#sub on_user_command {
+#   my ($self, $cmd) = @_;
+#   if($cmd =~ s/^matcher\b//) {
+#      $self->most_recent;
+#   }
+#   my $row = $self->nrow;
+#   my @exec;
+#   while($row-- > $self->top_row) {
+#      #my $line = $self->line ($row);
+#      #my $text = $line->t;
+#      @exec = $self->command_for($row);
+#      last if(@exec);
+#   }
+#   if(@exec) {
+#      return $self->exec_async (@exec);
+#   }
+#   ()
+#}
+#
+#sub most_recent {
+#   my ($self) = shift;
+#   ()
+#}
 
 sub my_resource {
    my $self = shift;
-   $self->x_resource("$self->{name}.$_[0]");
+   $self->x_resource ("$self->{name}.$_[0]");
 }
 
 # turn a rendition spec in the resource into a sub that implements it on $_