/*
 * Make one line out of the focus line and the line following.
 *
 * Leading spaces in the following line are ignored.
 *
 * If the cursor is beyond the end of the line the join occurs at the
 * cursor position.
 *
 * Otherwise the lines are joined with a single space between them.
 *
 *stking@bway.net
 */

if incommand() | inprefix() then exit

'preserve'
'set autosave off'
'set linend off'

if line.1() < size.1() then do
   'extract /line/cursor/'
   r = line.1; c = cursor.2
   'replace' strip(curline.3(),'T')
   len = length(curline.3())
   'down'
   if c <= len then
      nxl = ' 'strip(curline.3())
   else
      nxl = strip(curline.3())
   'sos delline'
   'up'
   if c <= len then 'sos endchar'
   'text 'nxl
   'sos firstcol'
   'cursor goto 'r c
   end

'restore'
exit