function CopySelection ()

-- find the selection range

  local startline, endline, startcol, endcol = 
    GetSelectionStartLine (),
    GetSelectionEndLine (),
    GetSelectionStartColumn (),
    GetSelectionEndColumn ()

  -- if a single line selected, take that word  

  if startline > 0 and 
     endline == startline and
     startcol > 0 and
     endcol > 0 then

    local selection = string.sub (GetLineInfo (startline, 1), startcol, endcol - 1)

    SetClipboard (selection)

  else
    DoCommand ("copy")
  end -- if

end -- function CopySelection 

/Accelerator ("Ctrl+C", "/CopySelection ()")

function Copy2()
  local line1, line2 = GetSelectionStartLine (), GetSelectionEndLine ()
  local col1, col2 = GetSelectionStartColumn (), GetSelectionEndColumn ()
  if line1 == 0 then
    -- copy command window if output window has nothing
    DoCommand( "copy" )
  else
    local copystring = ""
    local x = col1
    local i = line1
    while i <= line2 do
      if i < line2 then
        copystring = copystring..string.sub(GetLineInfo(i).text, x).."\n"
	x = 1
      else
        copystring = copystring..string.sub(GetLineInfo(i).text, x, col2-1)
        -- subtract 1 from col2 or you get an extra character for some reason
      end
      i = i + 1
      SetClipboard( copystring )
    end
  end
end -- function Copy2

Accelerator ("Ctrl+C", "/Copy2()")
function Copy2()
  local line1, line2 = GetSelectionStartLine (), GetSelectionEndLine ()
  local col1, col2 = GetSelectionStartColumn (), GetSelectionEndColumn ()
  if line1 == 0 then
    DoCommand( "copy" )
  else
    local copystring = ""
    while line1 <= line2 do
      if line1 < line2 then
        copystring = copystring..string.sub(GetLineInfo(line1).text, col1).."\n"
	col1 = 1
      else
        copystring = copystring..string.sub(GetLineInfo(line1).text, col1, col2-1)
      end
      line1 = line1 + 1
    end
    SetClipboard( copystring )
  end
end -- function Copy2