count-up - trotrの日記http://d.hatena.ne.jp/kitokitoki/20091219 http://d.hatena.ne.jp/gongoZ/20091222 (defun count-up (d) (interactive "P") (when (looking-at "[0-9.]") (let ((col (current-column)) (beg (progn (skip-chars-backward "[0-9.]") (point))) (end (progn (skip-chars-forward "[0-9.]") (point)))) (let ((num (delete-and-extract-region beg end))) (insert (format "%s" (+ (string-to-number num) (or d 1))))) (move-to-c
カーソルの位置にある数字列をインクリメントする emacs lisp 改修 - Thanks Driven Life
はてなブログ | 無料ブログを作成しよう
