Increment number at point by 1.

incf-at-point.el

(defun incf-at-point ()
  "Increment number at point by 1."
  (interactive)
  (let ((number (number-at-point))
        bounds beg end)
    (if number
        (progn
          (setq bounds (bounds-of-thing-at-point 'sexp))
          (setq beg (car bounds)
                end (cdr bounds))
          (let ((old-pt (point)))
            (delete-region beg end)
            (insert (number-to-string (1+ number)))
            (goto-char old-pt)))
      (user-error "No number found at point"))))
      
(bind-key "M-=" #'incf-at-point)