//
// DELWORD.VDM              Christian Ziemski  13.08.2005
//
// This version of "Delete (next) word" deletes 
// optional whitespace following the deleted word too.
//

if (Match("|W")==0) {
  if (At_BoL) {
    Del_Char(Chars_Matched)
    Return
  } else {
    Char(-1)
    if (Match("|W")==0) {
      Char(1)
      Del_Char(Chars_Matched-1)
      Return
    }
    Char(1)
  }
}

Mark_Word
Goto_Pos(Block_End)
if (Match("|W")==0) {
  Mark_Word
}
Del_Block(Block_Begin,Block_End)