Re: skip over whitespace in same column

[Kevin Rodgers <ihs_4664@yahoo.com>]

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