From a5cffdc44a230f803866d2e13aed569e6e1790ec Mon Sep 17 00:00:00 2001
From: Stu Grossman <grossman@cygnus>
Date: Sun, 18 Sep 1994 00:07:56 +0000
Subject: 	* gdbtk.tcl:  Let ^U delete lines in the command window.

---
 gdb/gdbtk.tcl | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'gdb/gdbtk.tcl')

diff --git a/gdb/gdbtk.tcl b/gdb/gdbtk.tcl
index a142c3d..9f52096 100644
--- a/gdb/gdbtk.tcl
+++ b/gdb/gdbtk.tcl
@@ -1283,6 +1283,7 @@ bind .command.text <Key-Return> {
 bind .command.text <Enter> {focus %W}
 bind .command.text <Delete> {delete_char %W}
 bind .command.text <BackSpace> {delete_char %W}
+bind .command.text <Control-u> {delete_line %W}
 proc delete_char {win} {
 	global command_line
 
@@ -1292,4 +1293,12 @@ proc delete_char {win} {
 	set command_line [string range $command_line 0 $tmp]
 }
 
+proc delete_line {win} {
+	global command_line
+
+	$win delete {end linestart + 6 chars} end
+	$win yview -pickplace insert
+	set command_line {}
+}
+
 wm minsize .command 1 1
-- 
cgit v1.1