{{{  comments
; delete all spaces from cursor to next non-space-char or end-of-line.
}}}
nodup
{{{  delspaces
(deffun delspaces (
  while and(test-char " ,not(test-end-line)) (O_DEL_CHAR_RIGHT)
))
}}}