結城浩の日記:トドちゃんを数えるPerlスクリプト
を読んで、さらにEmacs LispのTodoちゃんを読んで、ほんのちょっとだけ変更してみました。

;; トドちゃん挿入
(global-set-key "\C-\M-t"
                (lambda (arg)
                  "count and insert TODO in the buffer"
                  (interactive "P")
                  (insert (format "ε(  v ゚ω゚)  < TODO %d 頭" (count-matches "TODO")))))

ChangeLog メモでToDo項目に"ToDo"って書いて運用してるのでそこで使えるかな、と。