Re: skip over whitespace in same column

[Kevin Rodgers]

Albert Reiner wrote:
> is there a command to move point down (or up) over all lines where
> there is whitespace in the column of point?  E.g., invoking that
> command on the  "I" of the starting "IF" would get me to the "E" of
> "END IF" in the following:
>
> ,----
> | IF (whatever) THEN
> |   foo
> |   bar
> | END IF
> `----
>
> C-h a column RET did not return anything that looked useful to me.

Try this:

(defun forward-to-same-indentation ()
  "Move forward to the next line with the same indentation."
  (interactive)
  (let ((indentation (progn
                       (back-to-indentation)
                       (current-column))))
    (while (and (not (eobp))
                (progn
                  (forward-to-indentation 1)
                  (/= (current-column) indentation))))
    (move-to-column indentation)))

--
Kevin Rodgers