{{{  comments
; append the current line to the previous line and delete all spaces
; between the lines. Calling this when one of the lines isn't a text-line
; stops the macro with errormessage ``oops''.
}}}
nodup
{{{  libs
{{{F error.fun
:::F error.fun
}}}
}}}
{{{  append-to-previous-line
(deffun append-to-previous-line (
  if not(test-text) (oops) fi
  O_UP
  if not(test-text) (oops) fi
  O_END_OF_LINE
  O_DEL_CHAR_RIGHT
  delspaces
))
}}}