[ViewVC] Diff of: cvs/rxvt-unicode/src/perl/matcher

Comparing rxvt-unicode/src/perl/matcher (file contents):
Revision 1.19 by sf-exg, Sat Jun 7 20:07:38 2014 UTC vs.
Revision 1.20 by sf-exg, Thu Jun 12 06:03:49 2014 UTC

 C<matcher.pattern.0> resource, and additional patterns can be specified
 with numbered patterns, in a manner similar to the "selection" extension.
 The launcher can also be overridden on a per-pattern basis.
 It is possible to activate the most recently seen match or a list of matches
-from the keyboard.  Simply bind a keysym to "perl:matcher:last" or
+from the keyboard.  Simply bind a keysym to "matcher:last" or
-"perl:matcher:list" as seen in the example below.
+"matcher:list" as seen in the example below.
 Example: load and use the matcher extension with defaults.
     URxvt.perl-ext:           default,matcher
 Example: use a custom configuration.
     URxvt.url-launcher:       sensible-browser
-    URxvt.keysym.C-Delete:    perl:matcher:last
+    URxvt.keysym.C-Delete:    matcher:last
-    URxvt.keysym.M-Delete:    perl:matcher:list
+    URxvt.keysym.M-Delete:    matcher:list
     URxvt.matcher.button:     1
     URxvt.matcher.pattern.1:  \\bwww\\.[\\w-]+\\.[\\w./?&@#-]*[\\w/-]
     URxvt.matcher.pattern.2:  \\B(/\\S+?):(\\d+)(?=:|$)
     URxvt.matcher.launcher.2: gvim +$2 $1
          $self->most_recent;
       } elsif ($cmd =~ s/^matcher\b//) {
          # for backward compatibility
          $self->most_recent;
       }
+   }
+   ()
+}
+sub on_action {
+   my ($self, $action) = @_;
+   if ($action eq "list") {
+      $self->matchlist;
+   } elsif ($action eq "last") {
+      $self->most_recent;
    }
    ()
 }

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines