#7 shift-home shouldn't hop around

Shift-home is used to highlight the text on the commandline.. don't have this hop the history around.

the shift-pageup/down is fine for that.

[Mark Patton]

Logged In: YES
user_id=272

Home, not Shift-Home scrolls to the top. I played with it a
little bit and I'm not sure how to cleanly distinguish
between Home and Shift-Home.

[Kurt Hutchinson]

Logged In: YES
user_id=379669

I think it would be more intuitive if:
* Home merely went to the
beginning of the input line
* Shift-Home selected everything from the
cursor point to the beginning of the input line, and
* Ctrl-Home scrolled
the history window to the top

At the least, Home should only go to
the beginning of the input line or scroll to the top of the history window, but
not both.

[Kurt Hutchinson]

Logged In: YES
user_id=379669

As a response to my last comment on the various behaviors
of Home, here's a small patch which implements my
suggestions. In addition, End no longer scrolls to the end of
the history window, Control-End does that. (Please forgive me
if SourceForge messes up the formatting of this diff. If it
does, I'll be happy to email it, but I think you'll get the gist
regardless.)

diff -u old/tk.tcl new/tk.tcl
--- old/tk.tcl Fri Jul 11 15:30:27 2003
+++ new/tk.tcl Wed Jul 16 13:53:35 2003
@@ -912,8 +912,8 @@
bind .input <Next> {.display$mmucl::Mmucl(cur) yview
scroll 1 page; break}
bind .input <Prior> \
{.display$mmucl::Mmucl(cur) yview scroll -1 page;
break}
- bind .input <Home> {.display$mmucl::Mmucl(cur) see
1.0}
- bind .input <Key> {+.display$mmucl::Mmucl(cur) see
end}
+ bind .input <Control-Home> {.display$mmucl::Mmucl(cur)
see 1.0; break}
+ bind .input <Control-End> {+.display$mmucl::Mmucl(cur)
see end; break}

# bold font
$w tag configure 1 \