23WYPLCLKYBCCDRXA4GCYETSMTTMQO4QABH4GFLJRWVGGBEMOMMAC (defun my-increment-number-decimal-at-point (&optional arg)"Increment the number forward from point by 'arg'."(interactive "p*")(save-excursion(save-match-data(let (inc-by field-width answer)(setq inc-by (if arg arg 1))(skip-chars-backward "0123456789")(when (re-search-forward "[0-9]+" nil t)(setq field-width (- (match-end 0) (match-beginning 0)))(setq answer (+ (string-to-number (match-string 0) 10) inc-by))(when (< answer 0)(setq answer (+ (expt 10 field-width) answer)))(replace-match (format (concat "%0" (int-to-string field-width) "d")answer)))))))(global-set-key (kbd "C-c a") #'my-increment-number-decimal-at-point)