*** empty log message ***

diff --git a/Changes b/Changes
index ad3cc39..9dba095 100644 (file)
--- 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).
           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
         - 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 ff271a3..0d067de 100644 (file)
--- 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,
    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,