D
Size: a a a
D
D
A
d
A
D
D
ПН
D
ПН
D
ПН
D
D
DL
(when (looking-at "[0-9]+")
(let* ((number (match-string 0))
(first-digit (substring-no-properties number 0 1))
(rest-digits (substring-no-properties number 1))
(increased (concat (number-to-string
(1+ (string-to-number first-digit)))
rest-digits)))
(replace-match increased)))
PG
DL
PG
(when (looking-at "[0-9]+")
(let* ((number (match-string 0))
(first-digit (substring-no-properties number 0 1))
(rest-digits (substring-no-properties number 1))
(increased (concat (number-to-string
(1+ (string-to-number first-digit)))
rest-digits)))
(replace-match increased)))