Re: need help with a defun

[Jesper Harder]

Bernd Wolter <mathae.wolter@gmx.de> writes:

> after first step (done mostly via keep-lines):
>
> --------------------------------------------------------
> string1; string2; string3;
> string1; string2; string4;
> string2; string5;
> string4;
>
> --------------------------------------------------------
>
> after second step:
>
> --------------------------------------------------------
> string1
> string2
> string3
> string1
> string2
> string4
> string2
> string5
> string4
>
> The problem lies in step two and for that I used the slightly abridged
> (only for function names and doc string - to protect the innocent)
> defun I already posted.

I think this function does what you want:

(defun step-two ()
  (goto-char (point-min))
  (while (re-search-forward "; *\n*" nil t)
    (replace-match "\n")))