From: root <root>
Date: Sat, 26 Dec 2009 10:50:46 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Url: http://git.openbox.org/?a=commitdiff_plain;h=6e9a3c32ab570b80bd2f45746fb2e103df3e1549;p=dana%2Furxvt.git

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

diff --git a/Changes b/Changes
index ad3cc399..9dba0958 100644
--- a/Changes
+++ b/Changes
@@ -60,6 +60,7 @@ TODO: zweimal numlock? falsche codes rxvt urxvt for numpad?
           the new ->selection_screen method.
         - implement --enable-assert configure option and get rid of DEBUG_STRICT
           (based on patch by exg).
+        - allow `xxx' quoting style for perl selection.
         - upgrade to libev-3.9 prerelease.
 
 9.06 Sat Nov  8 17:47:18 CET 2008
diff --git a/src/perl/selection b/src/perl/selection
index ff271a30..0d067de1 100644
--- a/src/perl/selection
+++ b/src/perl/selection
@@ -41,10 +41,11 @@ my @mark_patterns = (
    qr{ (?<![^[:space:]])  [`'] ([^`']+)  [`'] (?![^[:space:]]) }x,
    qr{ (?<![^[:space:]])  ‘ ([^‘’]+)  ’ (?![^[:space:]]) }x,
    qr{ (?<![^[:space:]])  “ ([^“”]+)  ” (?![^[:space:]]) }x,
-   qr{ (?<![^[:space:]])  “ ([^“”]+)  ” (?![^[:space:]]) }x,
 
    qr{ (?<![^[:space:]]) (' [^[:space:]] [^']* ')                  }x,
    qr{                   (' [^']* [^[:space:]] ') (?![^[:space:]]) }x,
+   qr{ (?<![^[:space:]]) (` [^[:space:]] [^']* ')                  }x,
+   qr{                   (` [^']* [^[:space:]] ') (?![^[:space:]]) }x,
    qr{ (?<![^[:space:]]) (" [^[:space:]] [^"]* ")                  }x,
    qr{                   (" [^"]* [^[:space:]] ") (?![^[:space:]]) }x,