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.48 by root, Mon Nov 19 09:31:06 2007 UTC vs.
Revision 1.51 by root, Sat Dec 26 09:42:16 2009 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, 37# qr{ ([[:word:]]+) }x,
38 qr{ ([^[:space:]]+) }x, 38 qr{ ([^[:space:]]+) }x,
39 39
40 # common types of "parentheses" 40 # common types of "parentheses"
41 qr{ (?<![^[:space:]]) ` ([^‘’]+) ` (?![^[:space:]]) }x, 41 qr{ (?<![^[:space:]]) [`'] ([^`']+) [`'] (?![^[:space:]]) }x,
42 qr{ (?<![^[:space:]]) ‘ ([^‘’]+) ’ (?![^[:space:]]) }x, 42 qr{ (?<![^[:space:]]) ‘ ([^‘’]+) ’ (?![^[:space:]]) }x,
43 qr{ (?<![^[:space:]]) ` ([^`']+) ' (?![^[:space:]]) }x,
44
45 qr{ (?<![^[:space:]]) ([^]+) (?![^[:space:]]) }x, 43 qr{ (?<![^[:space:]]) ([^]+) (?![^[:space:]]) }x,
46 qr{ (?<![^[:space:]]) “ ([^“”]+) ” (?![^[:space:]]) }x, 44 qr{ (?<![^[:space:]]) “ ([^“”]+) ” (?![^[:space:]]) }x,
47 45
48 qr{ (?<![^[:space:]]) (' [^[:space:]] [^']* ') }x, 46 qr{ (?<![^[:space:]]) (' [^[:space:]] [^']* ') }x,
49 qr{ (' [^']* [^[:space:]] ') (?![^[:space:]]) }x, 47 qr{ (' [^']* [^[:space:]] ') (?![^[:space:]]) }x,
50 qr{ (?<![^[:space:]]) (" [^[:space:]] [^"]* ") }x, 48 qr{ (?<![^[:space:]]) (" [^[:space:]] [^"]* ") }x,

Diff Legend

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