From 3a78c580bfacbdc12a08507f98b0dfb3c9b78f94 Mon Sep 17 00:00:00 2001 From: forsyth Date: Tue, 15 Mar 2011 23:08:01 +0000 Subject: 20110315-2307 --- libtk/textw.c | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'libtk/textw.c') diff --git a/libtk/textw.c b/libtk/textw.c index 141273fb..62ffdf9f 100644 --- a/libtk/textw.c +++ b/libtk/textw.c @@ -98,15 +98,15 @@ static TkEbind tktbinds[] = { {TkKey|CNTL('<'), "%W tkTextSetCursor {insert linestart}"}, {TkKey|CNTL('b'), "%W tkTextSetCursor insert-1c"}, {TkKey|Left, "%W tkTextSetCursor insert-1c"}, - {TkKey|CNTL('d'), "%W delete insert"}, + {TkKey|CNTL('d'), "%W tkTextDelIns"}, {TkKey|CNTL('e'), "%W tkTextSetCursor {insert lineend}"}, {TkKey|End, "%W tkTextSetCursor {insert lineend}"}, {TkKey|CNTL('>'), "%W tkTextSetCursor {insert lineend}"}, {TkKey|CNTL('f'), "%W tkTextSetCursor insert+1c"}, {TkKey|Right, "%W tkTextSetCursor insert+1c"}, {TkKey|CNTL('h'), "%W tkTextDelIns -c"}, - {TkKey|DEL, "%W tkTextDelIns +c"}, - {TkKey|CNTL('k'), "%W delete insert {insert lineend}"}, + {TkKey|DEL, "%W tkTextDelIns"}, + {TkKey|CNTL('k'), "%W tkTextDelIns +l"}, {TkKey|CNTL('n'), "%W tkTextSetCursor {insert+1l}"}, {TkKey|Down, "%W tkTextSetCursor {insert+1l}"}, {TkKey|CNTL('o'), "%W tkTextInsert {\n}; %W mark set insert insert-1c"}, @@ -2613,6 +2613,8 @@ tktextdelins(Tk *tk, char *arg, char **val) sprint(buf, "insert-%dc insert", n); tktextdelete(tk, buf, nil); } + else if(arg[0] == '+' && arg[1] == 'l') + tktextdelete(tk, "insert {insert lineend}", nil); else tktextdelete(tk, "insert", nil); tktextsee(tk, "insert", nil); -- cgit v1.2.3