Re: Keep-only-column

[weber]

On 9 fev, 09:49, Marc Tfardy <m-t-o___CUT__IT...@web.de> wrote:
> 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

True.... but it didn't work otherwise...
I think the problem is that sometimes a region may be not marked
("selected") ?
I'm accepting improvements :)
Cheers
weber