Place selected text at top of window

start_byte = $selection_start
if ($selection_start == -1) {
    start_byte = $cursor
}

# Count the number of new lines from the beginning
# of the file to the beginning of the selection
nl = 0
for (i = 0; i <= start_byte; i++)
   {
      if (get_character(i) == "\\n")
         {
         nl++
         }
   }

# position the line containing the beginning of the selection
# at the top of the pane
scroll_to_line(nl+1)

Released on  Wed, 21 Nov 2001  by C. Denat