Re: Emacs regexp/incrementer question

[Tim Morley (remove vegetable for email address)]

Hi Friedrich.

I'm no lisp hacker at all, so thanks very much for the copy-and-paste
solution. Unfortunately I'm having trouble persuading it to work on my
machine. (Win2K, GNU Emacs 20.3.1)

I even copyied-and-pasted the example from your post to be sure  :o),  did a
M-x replace-with-changing-replacement, and entered the pattern and the
replacement. On finding the first 'foo' though, the function stopped with
the error : "Symbol's function definition is void: incf". As I said, I don't
know lisp at all -- is it just a typo? If not, do you have a suggestion as
to how I might resolve this?

Thanks in advance.


Tim


"Friedrich Dominicus" <frido@q-software-solutions.com> a écrit dans le
message news: 87smvtjnlb.fsf@fbigm.here...
> "Tim Morley \(remove vegetable for email address\)"
<tim@teamlog.turnip.com> writes:
>
> > Hi all.
> >
> > Does anybody know of a way to include an incrementing number in a regexp
> > search-and-replace in Emacs? What I want to do is search for a regexp,
and
> > the first time I find it, replace it with "case 1", the second time
replace
> > it with "case 2", etc.
> >
> > Even if the solution is a several-stager, I'd be more than happy,
because
> > I'm currently having to replace each occurrence with "case xxx" and then
> > change each "xxx" to a number by hand afterwards -- hardly ideal. I
could
> > use awk or something to change the xxx's to incrementing numbers, but
I'd
> > much prefer to do it all in Emacs if I can.
> >
> > Thanks in advance for your help.
> Here's a starting point for doing that
> (defun replace-with-changing-replacement (pattern replacement)
>   (interactive "sPattern: \nsReplacement: ")
>   (let ((count 1))
>     (while (re-search-forward pattern nil t)
>       (let ((repl (format "%s %d" replacement count)))
>         (incf count)
>         (replace-match repl)))))
>
> Not really tested but just checked it works for this
> foobar
> another foo
> yet another foo
> and last but not foo least foo
> foo foo foo
> end foo
> M-x replace-with-changing-replacement RET
> Pattern: \<foo\> RET
> Replacement: case RET
>
> will change that too:
> foobar
> another case 1
> yet another case 2
> and last but not case 3 least case 4
> case 5 case 6 case 7
> end case 8
>
> Which is what you want.
>
> Regards
> Friedrich
>
>