skip over whitespace in same column

skip over whitespace in same column

[Albert Reiner]

Hi,

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.

Thanks in advance,

Albert.

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

Re: skip over whitespace in same column

[Albert Reiner]

[Kevin Rodgers <ihs_4664@yahoo.com>, Mon, 22 Nov 2004 10:56:50 -0700]:
> 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?
> 
> Try this:

Thanks, works very well (though slightly differently from the
"specification"): In

,----
|   IF (whatever) THEN
|     foo
| ! comment
|     bar
|   END IF
`----

your function also skips to END IF, not to the comment.  Which, I
guess, is even more desirable most of the time.

Thanks again,

Albert.