Re: Advanced query-replace-regexp in code

[Thierry Volpiatto]

Thierry Volpiatto <thierry.volpiatto@gmail.com> writes:

> David Kastrup <dak@gnu.org> writes:
>
>> Nordlöw <per.nordlow@gmail.com> writes:
>>
>>> I can't get the following example to work programmatically.
>>>
>>>   M-x replace-regexp
>>>   Replace regexp:  \(\w+\)
>>>   Replace regexp with:  \,(capitalize \1)
>>>
>>> Is this only possible in interactive query-replace?
>>> If so should I use a combination of while(), looking-at(), re-search-
>>> forward(), replace-match(), match-string() etc.
>>
>> Do it interactively, then use
>>
>> C-x ESC ESC
>>
>> in order to figure out how to this non-interactively.
>
> An example of how to do that could be that:
>
> ,----[ Upcase all buffer ]
> | (save-excursion
> |   (goto-char (point-min))
> |   (while (not (eobp))
> |     (when (re-search-forward "\\w+" (point-max) t)
> |       (replace-match (upcase (match-string 0))))))
> `----

After testing the above code, (don't break at eob) i found that better:

,----
| (save-excursion
|   (goto-char (point-min))
|   (while (re-search-forward "\\w+" nil t)
|       (replace-match (upcase (match-string 0)))))
`----


-- 
A + Thierry Volpiatto
Location: Saint-Cyr-Sur-Mer - France