(deffun append-to-previous-line (
  if not(test-text) (message-exit "no_text) fi
  O_UP
  if not(test-text) (message-exit "no_text) fi
  O_END_OF_LINE
  O_DEL_CHAR_RIGHT
  delspaces
))
