File 27d8457-inputrc-mapping.patch of Package augeas.6793

From 27d845714d16aa0fcdc08f28623a6119ac4f0e6a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?C=C3=A9dric=20Bosdonnat?= <cedric.bosdonnat@free.fr>
Date: Tue, 8 Mar 2016 11:04:28 +0100
Subject: [PATCH] inputrc lens: support mapping like ","

The mapping values aren't always words. They can also be quoted values
containing characters like [,+/*-]
---
 lenses/inputrc.aug            | 2 +-
 lenses/tests/test_inputrc.aug | 4 ++++
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/lenses/inputrc.aug b/lenses/inputrc.aug
index 67032ac..15bf96e 100644
--- a/lenses/inputrc.aug
+++ b/lenses/inputrc.aug
@@ -27,7 +27,7 @@ autoload xfm
 (* View: entry
      An inputrc mapping entry *)
 let entry =
-   let mapping = [ label "mapping" . store Rx.word ]
+   let mapping = [ label "mapping" . store /[A-Za-z0-9_."\*\/+\,\\-]+/ ]
    in [ label "entry"
       . Util.del_str "\"" . store /[^" \t\n]+/
       . Util.del_str "\":" . Sep.space
diff --git a/lenses/tests/test_inputrc.aug b/lenses/tests/test_inputrc.aug
index e269fd5..ff475f2 100644
--- a/lenses/tests/test_inputrc.aug
+++ b/lenses/tests/test_inputrc.aug
@@ -61,6 +61,7 @@ $if term=rxvt
 \"\\e[8~\": end-of-line
 \"\\eOc\": forward-word
 \"\\eOd\": backward-word
+\"\\e[G\": \",\"
 $endif
 
 # for non RH/Debian xterm, can't hurt for RH/Debian xterm
@@ -157,6 +158,9 @@ test Inputrc.lns get conf =
       { "entry" = "\\eOd"
         { "mapping" = "backward-word" }
       }
+      { "entry" = "\\e[G"
+        { "mapping" = "\",\"" }
+      }
     }
     {  }
     { "#comment" = "for non RH/Debian xterm, can't hurt for RH/Debian xterm" }
-- 
2.6.6