Re: Transposing words over middle words

[Emanuel Berg]

Bob Proulx wrote:

>> (defun transpose-over-word ()
>>   (interactive)
>>   (transpose-subr #'forward-word  2)
>>   (backward-word 1)
>>   (transpose-subr #'forward-word -1) )
>
> This is a nice example of the joy of
> customizing emacs.

*extending (but I agree, of course)

> For my tastes I would want it to move the
> point with the word being dragged forward two
> words. Here is my modification to the above.
>
>  (defun transpose-over-word ()
>    (interactive)
>    (transpose-subr #'forward-word  2)
>    (backward-word 1)
>    (transpose-subr #'forward-word -1) 
>    (forward-word 1) )
>
> That actually does exactly what I would want
> M-1 M-t to do.

Don't mention it :)

-- 
underground experts united
http://user.it.uu.se/~embe8573