Re: Keep-only-column

[Marc Tfardy]

weber schrieb:

> Here's a version to apply the function to a region.
> If there is a easier way plese tell me!
>
> (defun keep-column-on-region (beg end &optional arg)
>   "Apply keep-column over region."
>   (interactive "r\np")
>   (save-excursion
>         (if mark-active
>                 (let ((beg (region-beginning))
>                           (end (copy-marker (region-end))))
>                   (goto-char beg)
>                   (while (< (point) end)
>                         (beginning-of-line)
>                         (keep-column arg)
>                         (next-line 1))))))

You use interactive "r" which put automatically boundary of region in
beg and end, but you still compute beg (and end) self in you code.
Why?

regards

Marc