結城浩の日記:トドちゃんを数える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"って書いて運用してるのでそこで使えるかな、と。