Emacs part 20

[0375 名無しさん＠お腹いっぱい。 2006/10/24(火) 19:05:21]

(defun inc-n (n)
(interactive "p")
(let ((number (+ (string-to-number (current-word)) n)))
(skip-syntax-backward "w_")
(kill-word 1)
(insert (format "%d" number))))