ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/rxvt-unicode/src/perl/selection
(Generate patch)

Comparing rxvt-unicode/src/perl/selection (file contents):
Revision 1.23 by root, Thu Jan 12 12:05:28 2006 UTC vs.
Revision 1.24 by root, Thu Jan 12 23:11:23 2006 UTC

20 () 20 ()
21} 21}
22 22
23# "find interetsing things"-patterns 23# "find interetsing things"-patterns
24my @mark_patterns = ( 24my @mark_patterns = (
25 qr{([[:word:]]+)},
26
27 # common "parentheses" 25 # common types of "parentheses"
28 qr{(?:^|\s) ‘ ([^‘’]+?) ’ (?:\s|\)|$)}x, 26 qr{(?:^|\s) ‘ ([^‘’]+?) ’ (?:\s|\)|$)}x,
29 qr{(?:^|\s) ` ([^`']+?) ' (?:\s|\)|$)}x, 27 qr{(?:^|\s) ` ([^`']+?) ' (?:\s|\)|$)}x,
30 qr{ \{ ([^{}]+?) \} }x, 28 qr{ \{ ([^{}]+?) \} }x,
31 qr{ \[ ([^{}]+?) \] }x, 29 qr{ \[ ([^{}]+?) \] }x,
32 qr{ \( ([^()]+?) \) }x, 30 qr{ \( ([^()]+?) \) }x,

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines