repo: rxvt-unicode-sixel
action: commit
revision: 
path_from: 
revision_from: 7b6c45381d9909c9fe411ecf79e1b20792cb8025:
path_to: 
revision_to: 

commit 7b6c45381d9909c9fe411ecf79e1b20792cb8025
Author: Marc Lehmann 
Date:   Thu Jan 12 10:21:50 2006 +0000

    *** empty log message ***

diff --git a/src/perl/selection b/src/perl/selection

--- a/src/perl/selection
+++ b/src/perl/selection
@@ -11,13 +11,14 @@ sub on_keyboard_command {

 # "find interetsing things"-patterns
 my @mark_patterns = (
-   qr{([[:alnum:]]+)},
+   qr{([[:word:]]+)},

    # common "parentheses"
    qr{(?:^|\s) ‘  ([^‘’]+?) ’ (?:\s|\)|$)}x,
    qr{(?:^|\s) `  ([^`']+?) ' (?:\s|\)|$)}x,
    qr{         \{ ([^{}]+?) \} }x,
    qr{         \[ ([^{}]+?) \] }x,
+   qr{         \( ([^()]+?) \) }x,

    # urls, just a heuristic
    qr{(

-----END OF PAGE-----