ignore-whitespace.el

(defun backward-whitespace-line ()
  (interactive)
  (let ((n (current-column)))
    (beginning-of-line)
    (backward-word)
    (move-to-column n)))

(defun forward-whitespace-line ()
  (interactive)
  (let ((n (current-column)))
    (end-of-line)
    (forward-word)
    (move-to-column n)))

nice