(defun cut-space ()
  "delete excess spaces"
  (interactive)
  (while (eq (char-after (+ (point) 1)) " ")
    (delete-char)))