From de64eb806aa2c07e2a6661c850b23e39fe1701ff Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Fri, 11 Jan 2013 15:02:34 +0000
Subject: See bug 3600390

---
 library/tk.tcl        | 6 ++++++
 library/ttk/entry.tcl | 3 ---
 2 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/library/tk.tcl b/library/tk.tcl
index b421d0b..bc8cace 100644
--- a/library/tk.tcl
+++ b/library/tk.tcl
@@ -313,6 +313,12 @@ proc ::tk::EventMotifBindings {n1 dummy dummy} {
     event $op <<Copy>> <Meta-Key-w> <Control-Key-Insert>
     event $op <<Paste>> <Control-Key-y> <Shift-Key-Insert>
     event $op <<Undo>> <Control-underscore>
+    event $op <<PrevChar>> <Control-Key-b>
+    event $op <<NextChar>> <Control-Key-f>
+    event $op <<PrevLine>> <Control-Key-p>
+    event $op <<NextLine>> <Control-Key-n>
+    event $op <<LineStart>> <Control-Key-a>
+    event $op <<LineEnd>> <Control-Key-e>
 }
 
 #----------------------------------------------------------------------
diff --git a/library/ttk/entry.tcl b/library/ttk/entry.tcl
index f5ba19e..7d9c9ef 100644
--- a/library/ttk/entry.tcl
+++ b/library/ttk/entry.tcl
@@ -141,9 +141,6 @@ bind TEntry <<NextLine>>		{# nothing}
 
 ## Additional emacs-like bindings:
 #
-bind TEntry <Control-Key-b>		{ ttk::entry::Move %W prevchar }
-bind TEntry <Control-Key-d> 		{ ttk::entry::Delete %W }
-bind TEntry <Control-Key-f> 		{ ttk::entry::Move %W nextchar }
 bind TEntry <Control-Key-h>		{ ttk::entry::Backspace %W }
 bind TEntry <Control-Key-k>		{ %W delete insert end }
 
-- 
cgit v0.12