Re: Emacs: adding 1 to every number made of 2 digits inside a marked region.

[Stephen Berman]

On Thu, 23 Sep 2021 15:54:19 +0800 Hongyi Zhao <hongyi.zhao@gmail.com> wrote:

> On Thu, Sep 23, 2021 at 3:24 PM Stephen Berman <stephen.berman@gmx.net> wrote:
>>
>> On Thu, 23 Sep 2021 08:23:26 +0800 Hongyi Zhao <hongyi.zhao@gmail.com> wrote:
>>
>> > On Thu, Sep 23, 2021 at 3:50 AM Stephen Berman <stephen.berman@gmx.net> 
>> > wrote:
>> >>
>> >> On Wed, 22 Sep 2021 22:28:28 +0800 Hongyi Zhao <hongyi.zhao@gmail.com> 
>> >> wrote:
>> >>
>> >> > Today, I stumbled on this interesting discussion here [1]:
>> >> >
>> >> > --------------------
>> >> > Imagine I've got the following in a text file opened under Emacs:
>> >> >
>> >> > some    34
>> >> > word    30
>> >> > another 38
>> >> > thing   59
>> >> > to      39
>> >> > say     10
>> >> > here    47
>> >> >
>> >> > and I want to turn into this, adding 1 to every number made of 2 digits:
>> >> >
>> >> > some    35
>> >> > word    31
>> >> > another 39
>> >> > thing   60
>> >> > to      40
>> >> > say     11
>> >> > here    48
>> >> > --------------------
>> [...]
>> > This one does nothing:
>> >
>> > (while (re-search-forward "\\<[0-9][0-9]\\>" nil t) (let ((x
>> > (match-string 0))) (delete-backward-char 2) (insert (format "%d" (1+
>> > (string-to-number x))))))
>>
>> It works for me.  How exactly did you use it?
>
> Mark set the following in scratch buffer:
>
> some    34
> word    30
>
> M-: (while (re-search-forward "[[:digit:]]\\{2\\}" nil t) (let ((x
>  (match-string 0))) (delete-backward-char 2) (insert (format "%d" (1+
>  (string-to-number x)))))) RET
>
> Please see the screenshot of the running results on my machine in the
> attachment.

In your first screenshot it looks like point in *scratch* is after the
number 30 when you evaluate the while-sexp.  Make sure point is before
34 and then it should work.

Steve Berman