delete the first few chars of each line

delete the first few chars of each line

[Zimmen Gnauh]

  To delete the first 10 chars of a line. Is there any simpler way
than the following:

(let beg (progn (beginning-of-line) (point))
        (delete-region beg 10))

Re: delete the first few chars of each line

[David Kastrup]

Zimmen Gnauh <yah00204052@yahoo.com> writes:

>   To delete the first 10 chars of a line. Is there any simpler way
> than the following:
> 
> (let beg (progn (beginning-of-line) (point))
>         (delete-region beg 10))

This is a trick question.  The code above does something completely
different.

I'd probably do something like
(progn
  (beginning-of-line)
  (delete-region (point) (+ 10 (point))))

-- 
David Kastrup, Kriemhildstr. 15, 44793 Bochum

Re: delete the first few chars of each line

[Stefan Monnier]

>   (delete-region (point) (+ 10 (point))))

Isn't this (delete-char 10) ?


        Stefan

Re: delete the first few chars of each line

[David Kastrup]

"Stefan Monnier" <monnier@iro.umontreal.ca> writes:

> >   (delete-region (point) (+ 10 (point))))
> 
> Isn't this (delete-char 10) ?

Only if you have a brain.

-- 
David Kastrup, Kriemhildstr. 15, 44793 Bochum

Re: delete the first few chars of each line

[Pascal Bourguignon]

Zimmen Gnauh <yah00204052@yahoo.com> writes:

>   To delete the first 10 chars of a line. Is there any simpler way
> than the following:
> 
> (let beg (progn (beginning-of-line) (point))
>         (delete-region beg 10))
 
C-h f let RET

(while (re-search-forward "^.........." nil t) 
    (delete-region (match-beginning 0) (match-end 0)))

or if you don't need it in a script:

M-x replace-regexp RET ^.......... RET RET


-- 
__Pascal_Bourguignon__
http://www.informatimago.com/
Do not adjust your mind, there is a fault in reality.