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.41 by root, Sat Nov 4 22:56:30 2006 UTC vs.
Revision 1.42 by root, Mon Nov 19 09:13:47 2007 UTC

… …
32 () 32 ()
33} 33}
34 34
35# "find interesting things"-patterns 35# "find interesting things"-patterns
36my @mark_patterns = ( 36my @mark_patterns = (
37 qr{ ([[:word:]]+) }x,
38 qr{ ([^[:space:]]+) }x,
39
37 # common types of "parentheses" 40 # common types of "parentheses"
38 qr{ (?<![^[:space:]]) ‘ ([^‘’]+) ’ (?![^[:space]]) }x, 41 qr{ (?<![^[:space:]]) ‘ ([^‘’]+) ’ (?![^[:space:]]) }x,
39 qr{ (?<![^[:space:]]) ` ([^`']+) ' (?![^[:space]]) }x, 42 qr{ (?<![^[:space:]]) ` ([^`']+) ' (?![^[:space:]]) }x,
40 qr{ (?<![^[:space:]]) (" [^[:space:]] [^"]* ") }x, 43 qr{ (?<![^[:space:]]) (" [^[:space:]] [^"]* ") }x,
41 qr{ (" [^"]* [^[:space:]] ") (?![^[:space]]) }x, 44 qr{ (" [^"]* [^[:space:]] ") (?![^[:space:]]) }x,
42 qr{ \< ([^<>[:space:]]+) \> }x, 45 qr{ \< ([^<>[:space:]]+) \> }x,
43 qr{ \{ ([^{}[:space:]]+) \} }x, 46 qr{ \{ ([^{}[:space:]]+) \} }x,
44 qr{ \[ ([^{}[:space:]]+) \] }x, 47 qr{ \[ ([^{}[:space:]]+) \] }x,
45 qr{ \( ([^()[:space:]]+) \) }x, 48 qr{ \( ([^()[:space:]]+) \) }x,
46 49

Diff Legend

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