--- rxvt-unicode/src/perl/selection	2006/01/08 01:32:38	1.16
+++ rxvt-unicode/src/perl/selection	2006/01/08 05:50:27	1.17
@@ -17,10 +17,13 @@
       [ab-zA-Z0-9\-\@;\/?:&=%\$_+!*\x27(),~]   # do not include a trailing dot, its wrong too often
    )}x,
 
-   # common forms of quoting
-   qr{(?:^|\s) [‘`] ([^‘`’']+) [’'] (?:\s|$)}x,
+   # common "parentheses"
+   qr{(?:^|\s) ‘  ([^‘’]+?) ’  (?:\s|$)}x,
+   qr{(?:^|\s) `  ([^`']+?) '  (?:\s|$)}x,
+   qr{         \{ ([^{}]+?) \}         }x,
+   qr{         \[ ([^{}]+?) \]         }x,
 
-   # shell-like argument quoting
+   # shell-like argument quoting, basically always matches
    qr{\G [\ \t|&;<>()] *(
       (?:
          [^\\"'\ \t|&;<>()]+