Select word/line/file

[Back]

Acts like the clicking mouse. For best results, bind to Shift+Return.

if ($selection_start == -1)
   $select_level = 1

if ($select_level == 1)
{
   # select word

   forward_word()
   backward_word()
   start=$cursor
   end = search("\t| |$", $cursor, "regex")
}

if ($select_level == 2)
{
   # select line

   start = search("^", $cursor, "regex", "backward")
   end = search("$", $cursor, "regex")
}

if ($select_level == 3)
{
   # select file

   start = 0
   end = $text_length
}

if ($select_level == 4)
{
   $select_level = 0
   start = $cursor
   end = $cursor
}

$select_level++
select(start,end)

[Back]

Released on  Wed, 21 Nov 2001  by C. Denat