#
# Bindings for Marketh
#


set Bindings(Mark) {
  {Forward_Mark 	{th_mark_forward %W}}
  {Backward_Mark 	{th_mark_backward %W}}
  {Mark_Text 		{th_mark_region %W}}
  {Unmark_Text 		{th_unmark_region %W}}
}


# th_bind.tcl needs this to set up the Function menu and Key label.
set Local_Bindings {Forward_Mark Backward_Mark Mark_Text Unmark_Text}


set TH_Bindings_Help {
Marking Functions

This module allows you to mark text with a special 'Mark' tag, and to quickly
scan for marked text. This mark tag is different than the mark you can set and
exchange in browseth; we will call that the point mark. To add the tag mark to a
range of text, select that range and press Control-M. If no text is selected,
the area between the point mark and the cursor gets the tag mark. Likewise, to
delete the tag mark from text, select the range to delete the tag fraom, and
press Meta-M. If no text is selected, again, the text between the cursor and the
point mark is unmarked.

Mark: 			Control-M
Unmark: 		Meta-M

You can also traverse between marks. Control-F moves the cursor forward to the
beginning of the next marked text, and Control-B moves the cursor backward to
the beginning of the previous marked text.

Mark: 	Forward: 	Control-F
	Backward: 	Control-B
}


