今日みつけた便利関数。

(defun count-region (start end)
"Count lines, words and characters in region."
(interactive "r")
(let ((l (count-lines start end))
(w (count-words start end))
(c (- end start)))
(message "Region has %d line%s, %d word%s and %d character%s."
l (if (= 1 l) "" "s")
w (if (= 1 w) "" "s")
c (if (= 1 c) "" "s")))
)