Our next project is to count the number of words in a function
definition. Clearly, this can be done using some variant of
count-word-region. See Counting Words: Repetition and Regexps. If we are just going to count the words in
one definition, it is easy enough to mark the definition with the
mark-defun) command, and then call
However, I am more ambitious: I want to count the words and symbols in every definition in the Emacs sources and then print a graph that shows how many functions there are of each length: how many contain 40 to 49 words or symbols, how many contain 50 to 59 words or symbols, and so on. I have often been curious how long a typical function is, and this will tell.