From: root <root>
Date: Thu, 12 Jan 2006 23:30:51 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Url: http://git.openbox.org/?a=commitdiff_plain;h=2449f02d0a47bc1a08a163c3c35e0518d85e8248;p=dana%2Furxvt.git

*** empty log message ***
---

diff --git a/src/perl/selection b/src/perl/selection
index 927a11c3..d5fdd8b2 100644
--- a/src/perl/selection
+++ b/src/perl/selection
@@ -23,11 +23,14 @@ sub on_init {
 # "find interetsing things"-patterns
 my @mark_patterns = (
    # common types of "parentheses"
-   qr{(?:^|\s) ‘  ([^‘’]+?) ’ (?:\s|\)|$)}x,
-   qr{(?:^|\s) `  ([^`']+?) ' (?:\s|\)|$)}x,
-   qr{         \{ ([^{}]+?) \} }x,
-   qr{         \[ ([^{}]+?) \] }x,
-   qr{         \( ([^()]+?) \) }x,
+   qr{ (?<![^[:space:]]) ‘ ([^‘’]+) ’ (?![^[:space]]) }x,
+   qr{ (?<![^[:space:]]) ` ([^`']+) ' (?![^[:space]]) }x,
+   qr{ (?<![^[:space:]]) (" [^[:space:]] [^"]* ")                 }x,
+   qr{                   (" [^"]* [^[:space:]] ") (?![^[:space]]) }x,
+   qr{ \< ([^<>[:space:]]+) \> }x,
+   qr{ \{ ([^{}[:space:]]+) \} }x,
+   qr{ \[ ([^{}[:space:]]+) \] }x,
+   qr{ \( ([^()[:space:]]+) \) }x,
 
    # urls, just a heuristic
    qr{(
@@ -70,8 +73,6 @@ sub on_sel_extend {
             my $ofs = $-[1];
             my $match = $1;
 
-            push @matches, [$ofs, length $match];
-
             for my $regex (@simplify_patterns) {
                if ($match =~ $regex) {
                   $match = $1;